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EXECUTIVE  SUMMARY 


Interferometries  Inc.  has  completed  a  series  of  radiation  pattern  calculations  for  each 
of  the  NAVSPASUR  transmitter  sites.  As  an  integral  part  of  this  effort  we  have  p>erformed 
the  first  detailed  calculation  of  the  radiation  pattern  of  the  NAVSPASUR  transmitter 
element  over  a  finite-sized  wire-grid  ground  screen. 

The  transmitter  antenna  pattern  parameters  which  we  compute  are  consistent  with 
the  reported  NAVSPASUR  values  in  the  far  field  and  provide  a  meaningful  calculation  of 
the  antenna  near-field  performance.  These  results  can  be  used  as  an  integral  component 
of  any  NAVSPASUR  model. 

The  tools  developed  to  generate  these  patterns  can  be  used  for  a  number  of  other 
related  applications,  and  therefore  provide  a  strong  foimdation  for  future  NAVSPAS^IR 
studies. 
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I.  INTRODUCTION 


\ 

J 

Interferometries  Inc,  has  recently  participated  in  an  effort  to  determine  the  capabili¬ 
ties  of  the  current  Naval  Space  Surveillance  System  (NAVSPASUR),  and  to  examine  the 
impact  of  proposed  system  enhancements.  As  part  of  this  effort,  Interferometries  Inc.  has 
identified  the  need  for  an  accurate  analytic  model  of  the  NAVSPASUR  system  which  can 
be  used  to  simulate  data.  One  of  the  critical  components  of  such  a  model  is  a  realistic 
transmitter  antenna  radiation  (or  beam)  pattern.  The  transmitter  beam  pattern  calcula¬ 
tions  previously  available  have  been  based  on  oversimplified  models  of  the  dipole  element 
radiation  pattern.  We  provide  here  a  detailed  calculation  of  the  radiation  pattern  of  the 
NAVSPASUR  transmitter  element  above  its  finite  wire-grid  ground  screen.  Using  this 
calculation,  we  also  derive  near-field  and  fax-field  beam  patterns  for  the  NAVSPASUR 
transmitter  antennas  for  a  number  of  interesting  cases. 

A  detailed  description  of  the  transmitter  antennas  is  given  in  Section  II  and  an 
overview  of  the  terminology  used  in  this  paper  is  contained  in  Section  III.  In  Section  IV  we 
calculate  the  beam  patterns  for  a  single  NAVSPASUR  radiating  element  in  free  space,  over 
an  infinite  ground  screen,  and  over  a  finite  ground  screen.  The  finite  ground-screen  results 
are  used  in  Section  V  to  calculate  the  antenna  array  radiation  patterns  using  the  principle 
of  superposition.  We  present  in  Section  VI  our  conclusions,  together  with  a  discussion  of 
the  potential  applications  of  the  model  we  have  developed.  An  overview  of  the  computer 
codes  developed  for  these  and  other  related  calculations  is  given  in  the  Appendix  to  this 
report. -  ''  ..  ' 

II.  ANTENNAS 
A.  Configuration 

The  present  NAVSPASUR  transmitting  system  consists  of  three  separate  transmitters 
positioned  on  a  great  circle  across  the  southern  United  States.  The  transmitting  antenna 
at  each  site  consists  of  a  linear  array  of  dipole  elements  aligned  in  a  north-south  direc¬ 
tion.  Each  site  transmits  an  unmodulated  continuous-wave  signal  at  a  frequency  (/)  of 
216.980  MHz,  corresponding  to  a  wavelength  (A)  of  1.38  meters. 

The  810  kW  transmitter  at  Lake  Kickapoo,  Texas  is  the  most  powerful  and  the  longest, 
consisting  of  eighteen  separate  collinear  bays  stretching  3200  m  in  the  north-south  direc¬ 
tion.  Each  bay  contains  144  elements  spaced  1.27  m  (0.92  A)  apart,  except  for  bay  #8 
(numbering  from  north  to  south),  which  is  split  by  a  road  and  consists  of  two  half  bays 
with  54  elements  each.  The  end  elements  of  adjacent  bays  are  separated  by  3.81  m.  The 
distance  between  the  elements  at  the  road  gap  is  73.2  m. 

The  Kickapoo  transmitter  is  referred  to  as  the  Kickapoo  complex,  since  it  is  created 
from  two  smaller  nine-bay  transmitters  called  North  Kickapoo  and  South  Kickapoo.  Each 
half  can  be  operated  as  an  individual  transmitter  antenna. 
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The  Gila  River,  Arizona  and  the  Jordan  Lake,  Alabama  transmitters  each  supply 
45  kW  of  power  to  single-bay  antenna  arrays.  The  Gila  River  transmitter  has  384  elements 
spaced  1.30  m  (0.94  A)  apart,  while  the  Jordan  Lake  transmitter  has  256  elements  spaced 
1.22  m  (0.88  A)  apart. 


B.  Element 

The  NAVSPASUR  transmitter  radiating  element  is  a  half-wave,  center-fed  aluminum 
dipole  with  an  arrowhead  configuration.  Each  of  the  two  quarter- wave  monopoles,  which 
together  make  up  the  dipole,  is  fixed  at  a  55®  droop  angle  (measured  with  respect  to  the 
horizontal),  as  shown  in  Fig.  1.  The  center  of  the  element  is  positioned  0.517  m  (0.375  A) 
over  the  ground  screen.  The  element  is  parallel  to  the  great  circle  plane. 

C.  Ground  Screen 

The  transmitter  antenna  ground  screens  are  a  wire  grid  3.66  m  (2.66  A)  wide.  The 
lengths  of  the  ground  screens  are  identical  to  the  transmitter  antenna  lengths  of  500.0  m 
and  314.6  m  for  the  Gila  River  and  Jordan  Lake  antennas,  respectively.  For  the  Kickapoo 
complex,  the  ground  screen  for  each  bay  is  equal  to  the  bay  length,  which  is  about  183  m 
for  all  bays  except  #8.  The  two  halves  of  bay  #8  have  ground  screens  with  lengths  about 
68.6  m  each. 

The  existing  ground  screen  is  made  from  commercial  wire  fencing  of  unknown  compo¬ 
sition.  The  ground  screen  grid  wires  are  spaced  0.076  m  (0.055  A)  apart  running  parallel  to 
the  element  plane,  with  thirteen  plane-perpendicular  wires,  spaced  .305  m  apart,  running 
the  length  of  the  ground  screen.  The  wire  diameter  is  0.0033  m  (0.002  A). 

The  ground  screens  are  scheduled  to  be  replaced  in  1989.  The  replacement  ground 
screen  has  bars  instead  of  wires  with  closer  spacings  of  0.051  m  parallel  to  the  element 
plane.  The  rectangulsur  cross-sectional  bars  are  made  of  an  aluminvun  alloy,  with  a  width 
of  0.0254  m  and  a  thickness  of  0.0032  m. 

III.  TERMINOLOGY 

A  number  of  terms  used  herein  may  require  either  definition  or  clarification.  This 
section  presents  an  overview  of  the  terminology  as  applied  in  the  context  of  this  paper. 

The  radiation  or  beam  pattern  refers  to  the  angular  dependence  of  the  radiation 
properties  of  an  antenna.  A  beam  pattern  is  generally  presented  as  a  plot  of  some  parameter 
proportional  to  radiation  intensity  versus  angle,  often  in  polar  plot  format.  The  intensity- 
proportional  parameter  may  be  gain,  directivity,  radiation  intensity,  or  power  density. 
Antenna  refers  to  either  a  single  radiative  element  or  an  airray  of  elements. 

The  terms  fau:  (electric)  field  and  near  (electric)  field  are  used  throughout  this  paper. 
When  a  single  element  is  of  interest,  the  near  field  refers  to  the  reactive  near  field.  The 
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reactive  near-field  region  is  defined  in  terms  of  the  complex  Poynting  vector,  which  is 
related  to  the  electric  field  (E)  and  magnetic  field  (H)  by  the  equation 


S(r,6,<l>)  =  \Eir,d,<i>)xW(r,e,<f>). 


(1) 


The  reactive  near-field  region  is  defined  as  the  range  of  distances  for  which  terms  in  the 
Poynting  vector  proportional  to  1/r"  with  n  >2  are  significant.  These  terms,  which  are 
imaginary,  correspond  to  the  reactive  power,  which  represents  stored  energy.  The  term 
proportional  to  l/r^  corresponds  to  the  radiative  power. 

The  near  field  of  an  array  of  elements  refers  to  the  radiative  near  field.  The  radiative 
neax-field  region  (also  referred  to  as  the  FVesnel  region)  lies  between  the  reactive  ne2ir-field 
region  of  the  elements  and  the  array  far-field  region.  The  array  fax-field  region  (also  referred 
to  as  the  FVaunhofer  region)  is  defined  as  the  range  of  distances  where  the  approximation 
that  the  radiation  from  all  points  of  the  array  travel  parallel  paths  to  the  target  is  valid. 
It  is  generally  defined  by 

^  2D2 


where  D  is  the  largest  linear  dimension  of  the  array.  For  the  radiative  near-field  patterns, 
power  density  (V)  is  a  convenient  plot  variable,  since  the  target  cross  section  multiplied 
by  power  density  yields  the  total  power  power  incident  on  the  target.  It  is  defined  as  the 
magnitude  of  the  real  part  (3?)  of  the  Poynting  vector,  or 


V{rA<t>)=  \  |»[E(r,0,0)xH*(r,0,<^)]l  . 


Directivity,  as  used  in  this  paper,  is  defined  by  the  equation 


Die,4>) 


Vav 


where  U{6,<f>)  is  the  radiation  intensity  in  the  direction  {9,<f>),  given  by 


Uie,4>)  =  r^Vir,9,<f>). 


(3) 


(4) 


(5) 


and  Uav 


is  radiation  intensity  averaged  over  all  direction  angles.  Gain  is  then  defined  as 
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G{e,ct>)  =  €0(9,4), 


(6) 


where  e  is  the  radiation  efficiency,  defined  as 


£  = 


(7) 


Here  Prad  is  the  total  radiated  power  and  P,„  is  the  input  power  to  the  antenna.  Since 
the  radiation  efficiency  ol  the  NAVSPASUR’s  transmitter  antennas  is  unknown,  directivity 
will  be  used  as  the  plot  parameter  for  far-field  beam  patterns.  Gain  and  directivity  axe 
also  commonly  used  to  represent  the  maximum  values  of  Eqs.  (4)  and  (6).  If  a  single  value 
is  given  as  the  gain  or  directivity  of  an  antenna,  the  maximum  value  is  implied. 


IV.  ELEMENT  BEAM  PATTERNS 


For  completeness,  we  present  the  derivation  of  the  element  radiation  pattern  in  free 
space  and  the  pattern  of  the  element  over  an  infinite  planar  ground  screen  using  the  method 
of  images.  Thus,  a  reference  point  for  analyzing  the  effect  of  a  finite  ground  screen  on  the 
beam  pattern  is  established.  The  finite  ground  screen  calculation  is  then  presented  in 
detail. 


A.  Beam  Pattern  of  a  Free-Space  Element 

The  beam  pattern  calculation  for  a  free-space  element  is  straightforward,  if  some  rea¬ 
sonable  assumptions  are  made.  The  element  is  assumed  to  be  constructed  of  infinitely-thin, 
perfectly  conducting  wire.  The  infinitely  thin  assumption  is  valid  since  the  actual  diameter 
(0.0254  m)  is  much  less  than  a  wavelength.  Also,  aluminum’s  very  high  conductivity  at 
216.980  MHz  makes  the  perfect -conductor  assumption  reasonable.  Thus,  the  element  can 
be  viewed  as  two  ideal  quzu'ter-wave  monopoles  with  appropriate  relative  current  phases 
aind  relative  positions. 

The  ideal  quarter- wave  monopole  far-field  beam  pattern  is  calculated  using  well-known 
methods  found  in  many  introductory  antenna  theory  books[l,2].  Consider  a  quarter- wave 
monopole  oriented  in  the  z  direction  with  a  current  distribution  (I(z))  given  as 

I(z)  =  Jo  sin  Q  -  0  <  z  <  ^  ,  (8) 


where 


k  = 


27r 

T  ’ 


(9) 
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and  2  =  0  is  the  feedpoint  of  the  antenna.  The  electric  field  in  sphericzd  coordinates  is 
then  given  by 


E{r,6,(f>)  =  Eo 


^-ikr  (e‘f‘O‘<>-icos0) 
r  sin^ 


(10) 


where 


Bo 


(11) 


OJ  =  2lTf  , 


(12) 


i  =  (13) 

and  /X  is  the  magnetic  permeability  of  the  ambient  medium.  Implicit  in  this  paper  is  an 
e’”'*  time  dependency  associated  with  the  currents  and  the  electric  fields. 

If  the  mutu2d  impedance  between  monopoles  is  neglected,  the  electric  field  for  each 
monopole  of  the  NAVSPASUR  dipole  element  can  be  found  by  performing  two  different 
rotational  coordinate  transformations  on  Eq.  (10).  The  superposition  of  these  two  expres¬ 
sions  is  then  the  desired  far-field  pattern.  The  z  direction  is  chosen  to  be  vertical,  the  z 
direction  west,  and  the  y  direction  south.  Therefore,  the  x-z  plane  contains  the  dipole. 
The  current  phase  difference  between  the  monopoles  is  180®.  The  electric  field  expression 
is  then 


E(r,  9,  <i>)  =  Eo 


e  e  '  -t- i(sin6  cos5 -t- cos(5  sin0  cos<^) 

r  1  —  (sin  6  cos  9  -I-  cos  S  sin  9  cos 


X  [(sin  6  sin^  —  cos  S  cos  9  cos  ^)  ©  -|-  cos  6  sin  </>  # 


+  Eo 


e  ^  ^  ^  -f-  i(sin S  cos  9  —  cos  8  sin  9  cos  (p) 

r  1  —  (sin  6  cos  9  —  cos  6  sin^  cos  (pY 


X  [—(sin  8  sin  9  +  cos  8  cos  9  cos  (p)  &  +  cos  8  sin  <p  , 


(14) 


where  8  is  the  droop  angle  of  55®,  0  is  unit  vector  in  the  theta  direction,  and  $  is  the 
unit  vector  in  phi  direction. 

The  resultant  x-z  (east-west-vertical)  plane  directivity  pattern  is  sh  .m  in  Fig.  2. 
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B.  Infinite  Ground  Screen  Pattern 


A  common  method  of  simplifying  radiation  pattern  calculations  for  elements  with 
ground  screens  is  the  use  of  the  infinite  planar  ground  screen  assumption.  The  infinite 
ground  screen  beam  pattern  calculation  can  be  performed  by  the  method  of  images.  The 
method  of  images  allows  the  infinite  ground  screen  to  be  replaced  by  an  image  dipole.  This 
dipole  lies  the  same  distance  below  the  ground  screen  as  the  real  dipole  lies  above,  and  has 
a  cmrent  distribution  180®  out  of  phase  with  that  of  the  real  dipole.  The  electric  field  above 
the  ground  pl2me  is  then  a  superposition  of  the  real  dipole  field  and  the  image  dipole  field. 
The  calculation  is  then  no  more  difiacult  than  the  free  element  pattern  ceilculation,  and  only 
slightly  more  tedious.  The  infinite  ground  screen  assumption  works  well  for  large  ground 
screens  extending  many  wavelengths  away  from  an  element.  For  smaller  ground  screens 
this  is  not  the  case,  but  unfortunately  the  difficulty  of  finite  ground  screen  calculations 
often  dictates  that  this  assumption  be  used  anyway. 

Applying  the  method  of  images,  the  total  far  electric  field  expression  becomes 


E{r,e,<i>)  =  E. 


g-ifcr  g-if  (sin  <  cos  «+co««  Sins  cos  COS  0  +  COS  ^  sin  ^  COS  <f>) 


'•  1  —  (sin  6  cos  9  -I-  cos  S  sin  9  cos 

X  [(sin  S  sin  ^  —  cos  6  cos  9  cos  ^)  ©  +  cos  6  sin  <i>  $] 


+  Eo 


^-ikr  (»in  i  cos  0-co,  6  »in  e  co.  4>)  ^  t(sin  ^  COS  g  -  COS  6  sin  9  cos  (f>) 
r  1  —  (sin  S  cos  9  —  cos  6  sin  9  cos 


X  [—(sin  6  sin  9  +  cos  6  cos  9  cos  <^)  0  +  cos  6  sin  <f> 


^  e  e*f  (®'"  ^  ^  ^ —  i(sin^  cos  ^  —  cos  ^  sin^  cos  <j^) 

°  r  1  —  (sin5  cos^  —  cos6  sin0  cos^)^ 

X  (sin<5  sin^  +  cosS  cos  9  cos<f>)  0  -f  cos  S  sin  4>  $] 

^  6“’*'"  e't ®+cos  6  sin  0  cos  <^)  _  ^  f-Qg  0  ^  (.Qg  ^  gJjj  0 

°  r  1  —  (sin 6  cos  9  +  cos  6  sin 9  cos  <f>)^ 

X  e“’^^^‘^°®^[(sin^  sin^  —  cos^  cos^  cos(^)  0  +  cos<5  sin(;i  #]  .  (15) 


Figure  3  shows  the  resultant  x-z  (east-west-vertical)  plzine  directivity  pattern. 
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C.  Finite  Ground  Screen  Pattern 


The  calculation  of  the  radiation  pattern  of  an  element  over  a  finite  ground  screen  in 
the  form  of  a  wire  grid  is  a  formidable  problem,  for  which  numerical  methods  are  needed. 
The  numerical  method  chosen  for  this  calculation  is  called  the  method  of  moments. 


1.  METHOD  OF  MOMENTS 
a.  Fundamental  Concepts 

The  method  of  moments[l]  is  a  mathematiczd  procedure  for  obtaining  matrix  equations 
from  a  set  of  linear  equations.  It  was  first  used  for  electric  field  problems  in  1967  by 
R.  F.  HauringtonfS],  and  has  evolved  into  a  very  powerful  anzdytical  technique  for  solving 
a  variety  of  problems  in  electromagnetic  theory.  The  technique  is  particularly  useful  for 
problems  dealing  with  electromagnetic  scattering  from  wire  grids. 

The  basic  concept  of  this  method  can  be  seen  with  the  treatment  of  electromagnetic 
radiation  incident  on  a  perfectly  conducting  wire  of  length  L.  The  perfectly  conducting  wire 
requires  both  the  electric  field  in  the  interior  and  the  tangential  component  of  the  electric 
field  at  the  surface  of  the  wire  be  equal  to  zero.  Therefore,  on  the  surface  the  tangential 
component  of  the  scattered  electric  field  E^j  must  cancel  the  tangential  component  of  the 
incident  electric  field  E||,  or 

E|,  =  Ef,  +  Ei,=0.  (16) 

This  requirement  can  be  reiterated  in  terms  of  the  induced  current  distribution  I{z') 
on  the  wire  as 


1 

iijJCo 


z') 


dz'  +  Eiiz)  =  0, 


(IT) 


where  E\{z)  is  the  z  component  of  the  incident  electric  field,  xl'{z,z')  is  the  free  space 
Green  function  given  by 


xl}{z,z') 


47rR  ’ 


(18) 


and  R  is  the  distance  between  the  observation  point  (i,  y,  z)  and  the  source  point  (x',  y',  r'). 
For  a  thin  wire  of  radius  a  (a  <  A,  a  0) 


7 


(19) 


Equation  (17)  can  be  written  in  the  form 


(20) 


The  current  distribution  1(2')  can  be  approximated  using  a  series  of  expansion  functions 

F„ 

N 

(21) 

n=l 


Substituting  Eq.  (21)  into  the  Eq.  (20)  yields 


InFniz')K{2,2')dz' 


(22) 


For  a  simple  case,  F„  can  be  selected  as  a  stairstep  approximation  to  the  actual  current 
distribution,  in  which  the  wire  is  divided  into  N  segments  of  equal  length  Az  and  each 
segment  supports  a  constant  current.  Then, 


for  z„-Az/2  <  z'  <  Zn+Az/2\  ^23) 

1 0  otherwise. 

Here  2„  is  the  coordinate  of  the  midpoint  of  segment  n.  As  N  approaches  infinity  A  2 
approaches  zero,  and  Eq.  (21)  approaches  a  true  equality. 

This  choice  of  expansion  functions  allows  the  summation  and  to  be  brought  out 
of  the  integr^d  in  Eq.  (22).  The  equality  can  then  be  enforced  at  the  midpoint  of  each 
segment.  Thus, 


K{z^,z')dz'^-Ei{Zrr.), 


m  = 


(24) 


and  the  integral  can  be  determined  and  defined  as 
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K{zm-,z')  dz  . 


(25) 


An  analogy  to  network  equations  can  be  meide  with  a  set  of  generalized  impedance, 
current,  and  voltage  matrices.  This  leaves  a  set  of  N  equations  in  the  form 


s 

n=l 


(26) 


where 


Z 


mn 


—  /(2m>  ^n)  > 


and 


V„.  =  -EiiZm)  . 

Expressed  in  matrix  form,  Eq.  (26)  becomes 


(  Z\x  Zi2  . . .  Zii^ 

/V,  \ 

Z21  Z22  •  •  •  Z2N 

h 

— 

V2 

\  Zni  Zn2  ■  •  ■  Znn  / 

\InI 

\Vs) 

(27) 


(28) 


(29) 


from  which  can  be  determined  by  matrix  inversion. 

Once  In  is  known  for  eaich  n,  the  fcir  field  can  be  obtained  by  summing  the  contri¬ 
butions  from  the  individual  segments  and  adding  them  to  the  feir  field  from  the  original 
source. 


This  method,  called  point  matching,  can  be  used  to  determine  the  far  field  to  a 
satisfactory  degree  of  accuracy  when  N  is  large. 

Point  matching  can  be  extended  for  use  with  an  arbitrary  thin-wire  configuration.  In 
particular,  if  /  represents  the  coordinates  of  each  position  along  a  wire,  then  Eq.  (20),  in 
generalized  form,  becomes 

/  Iil')K{l,l')dr  =  -E}{l).  (30) 

Jr 
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Using  the  method  of  moments,  with  the  current  approximated  by  N  expansion  functions, 
Eq.  (30)  becomes 


F,,il')K{l,ndl'  =  -EKl). 


(31) 


b.  Piecewise  Sinusoidal  Galerkin  Method 

Although  the  point  matching  method  is  useful  for  some  problems,  its  convergence 
is  rather  slow.  Using  different  expansion  functions  can  speed  up  the  convergence.  One 
common  set  of  expansion  functions  is  the  piecewise  sinusoid,  which  is  given  as 


and 


i^n(/)  = 
Fn{l)  = 


sin  k{l  -  /n,i) 
sin k{l„  -  In-i) 

sinfc(/n+i  ~  0 
sink{ln+i  -  In) 


In-l  <  /  <  /n  , 

ln<l<  In+l  , 


(32a) 

(32b) 


where  In  is  the  terminal  of  two  connected  segments. 

A  relatively  small  number  of  these  overlapping  sinusoids  suffices  to  fit  a  typical  current 
distribution  quite  well.  However,  in  most  cases  some  error  will  exist,  because  the  electric 
field  created  by  the  current  approximation  does  not  cancel  the  incident  electric  field  at  all 
points  along  the  wire.  In  other  words 

N 

+  =  (33) 

n=l 

where  R{1)  is  the  residual.  By  forcing  the  residual,  averaged  over  the  segment,  to  zero  along 
each  segment,  the  current  approximation  may  be  better.  This  may  be  further  improved 
by  weighting  the  errors  over  that  segment.  Again,  N  equations  are  formed  as 


N 

di  + 

n=l 


WMEiil)  dl  =  0  , 


m  =  1,2,3,. ..,iV,  (34) 


or 
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WMfilX)dl 


+ 


W^{l)Ei{l)  dl  =  0, 


m  =  1,2,3,. ..,JV,  (35) 


where  the  represent  the  weighting  functions.  Although  the  weighting  functions  can  be 
chosen  to  be  anything,  they  are  often  chosen  to  be  the  same  as  the  expansion  functions. 
This  approach  is  known  as  the  Galerkin  method. 

The  weighting  functions  are  also  known  as  testing  functions,  for  reeisons  related  to 
the  physical  interpretation  of  Eqs.  (34)  and  (35).  This  physical  interpretation  is  related  to 
the  physical  observable  reaction.  Reaction  was  first  introduced  in  1954  by  V.  H.  Rumsey 
because  the  parameter  that  is  measured  at  the  terminals  of  an  antenna  is  not  the  electric 
field,  but  the  reaction  between  the  receiver  antenna  and  the  transmitter  antenna[5].  The 
reaction  between  antenna  (or  source)  a  and  antenna  (or  source)  b  is  given  as 


(a,  6) 


H(a)  •  K{b)]  dv  , 


(36) 


where  E(a)  and  H(a)  are  the  electric  and  magnetic  fields  radiated  by  source  a,  and  J(6), 
K(6)  are  the  electric  and  magnetic  current  distributions  of  source  b,  respectively.  Also, 


{a,b)  =  {b,a).  (37) 

For  a  perfectly  conducting  wire  scatterer  with  an  arbitrary  configuration,  the  interior 
electric  field  vanishes.  If  the  wires  are  replaced  by  the  appropriate  surface  current  densities, 
the  internal  and  external  fields  do  not  change.  Thus,  an  equivalent  configuration  exists. 
Test  sources  can  be  placed  in  the  interior  of  these  surface  currents.  The  reaction  of  test 
source  b  with  the  scatterer  a  czui  be  considered.  If  the  test  source  and  the  scatterer  2ire 
non-magnetic  thin  wires,  then 


l6(/)  •  Ea(/)  dl  =  0. 


(38) 


The  reaction  is  zero,  since  £«  is  zero  in  the  interior  of  the  wire  scatterer.  Substituting  for 
Eo,  as  represented  by  Eq.  (30),  into  Eq.  (38)  yields 


^  r 

n=l 


dl 


h{l)  Fn{l')K{l,V)dl'  +  jE\{l)  dl  = 


(39) 
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Now,  if  the  expansion  functions  are  chosen  to  be  piecewise  sinusoids,  a  judicious  choice 
of  test  source  is  a  short  dipole  with  unit  input  current.  This  choice  (i.e.  test  dipoles) 
forces  the  test  source  to  have  a  piecewise  sinusoid  current  distribution.  If  iV  of  these 
test  dipoles  are  placed  in  overlapping  positions  along  the  wire  configuration,  so  that  the 
sinusoid  distribution  corresponds  with  the  expansion  function  distribution,  N  equations 
are  generated  as 


dlL 


,(/)  /  F„{l')KilJ')  dl'+  f  Ei{l)  dl  =  Q, 

JAI'  JAlrn 


m  =  l,2,3,...iV,  (40) 


where  /m(0  is  the  function  defined  by  Eq.  (32). 

Equation  (40)  takes  the  same  form  as  Eq.  (35).  Therefore,  the  physical  interpretation 
of  Eq.  (35)  can  be  seen,  if  Wm{i)  represents  /m(0  as  the  reaction  between  the  test  dipoles 
and  the  wire  segments. 

Equation  (40)  represents  the  particular  method  of  moments  known  as  the  piecewise 
sinusoidal  Galerkin  method[l,4].  Each  /„  is  again  found  from  the  matrices  represented  by 
Eq.  (29),  where 


Z 


mn 


dllmil)  /  Fn{l’)K{Ul')dl' , 

Jav„ 


(41) 


and 


In  practice,  a  partictilar  wire  configuration  is  mathematiceilly  divided  into  streiight 
segments.  Past  experience  has  shown  that  the  segment  length  should  not  be  greater  than 
A/4.  Test  dipoles  are  then  placed  inside  the  wire  over  the  entire  configuration  with  each 
monop>ole  corresponding  to  a  segment.  (The  dipoles  are  not  necessarily  straight.  The 
angle  between  the  monopoles  corresponds  to  the  angle  between  connecting  segments.) 
The  current  distribution  must  be  represented  so  all  possible  current  paths  are  allowed. 
Interior  segments  will  contain  overlapping  monopoles,  and  segments  at  wire  intersections 
may  contain  four  monopoles,  due  to  overlapping  test  dipoles.  The  current  must  fall  to  zero 
at  points  when  a  wire  is  terminated.  Therefore,  a  segment  at  the  termination  of  the  wire 
contains  only  one  monopole.  In  other  words,  each  segment  contains  one  monopole  for  each 
possible  current  path  to  or  from  that  segment. 
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Once  each  I„  is  known,  the  scattered  fajc  field  can  be  determined  by  summing  the 
contributions  from  each  segment.  For  example,  a  typical  segment  of  length  d  with  endpoints 
(ii,yi,zi)  and  (i2)y2>-2^2)>  oriented  by  the  angles  a,  /9,  and  7  with  respect  to  the  three 
principal  axes  z,  y,  and  z,  respectively,  has  a  current  distribution  represented  by  two 
overlapping  sinusoids  and  expressed  as 


/(£)  = 


Ii  sin  k(d  —  £)  + 12  sin  k£ 
sin  kd 


(43) 


where  0  <  £  <  d  is  the  distance  along  the  segment.  The  far  field  components  axe  then 
expressed  as 


Ed  =  (cos  a  cos  6  cos  —  cos  cos  ^  sin  —  cos  7  sin  6)  Et , 
E^  =  {—  cos  a  sin  +  cos  cos  <f>)Et , 

where 

+  -h  g  sin  kd  —  cos  kd)l2  , 

/i  =  ii  sin0  COS0  +  yi  sin^  sin<^  +  zi  cosff  , 

/j  =  X2  sin  6  cos<f>  +  y2  sin^  sin  (f>  +  Z2  cos  9  , 

2ind 

g  =  COS  a  sin  9  cos  (j>  +  cos  ^  sin  9  sin  (j)  +  cos  7  cos  9  . 


(44) 

(45) 


(46) 

(47) 

(48) 


(49) 


The  scattered  fax  field  from  each  segment  is  added  to  the  original  incident  far  field  of 
the  radiating  element  to  determine  the  total  fax  field. 
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2.  APPLICATION  TO  NAVSPASUR 


Since  the  ground  screen  below  the  NAVSPASUR  element  is  a  wire-grid  ground  screen, 
the  method  of  moments  is  the  logical  approach  to  calculating  the  radiation  pattern.  In 
order  to  solve  Eq.  (29)  for  the  current  distribution,  a  number  of  unknowns  need  to  be 
determined. 

First,  the  north-south  length  of  ground  screen  to  use  in  the  calculation  must  be  deter¬ 
mined.  Computer  memory  limitations  do  not  allow  the  calculation  of  the  scattering  from 
the  full  ground  screen.  Fortunately,  the  entire  length  of  the  ground  screen  is  not  needed 
for  an  accurate  calculation  of  the  element  radiation  pattern.  Very  little  contribution  to 
the  beam  pattern  comes  from  sections  of  the  screen  that  are  sufficiently  far  away  from 
the  element.  A  sequence  of  cailculations  involving  a  systematic  north-south  lengthening 
of  the  ground  screen  has  been  performed  to  determine  the  distance  at  which  the  ground 
screen  can  be  safely  truncated.  This  assures  that  the  north-south  length  used  in  the  final 
calculation  is  a  good  approximation  to  the  very  long  ground  screen. 

The  incident  field  which  originates  from  the  transmitter  element  must  also  be  deter¬ 
mined.  Although  the  far  field  approximation  is  given  in  Section  II,  the  near  electric  field  is 
clearly  required  in  this  case.  Although  the  assumptions  used  in  Section  II  (excluding  the 
fax-field  assumption)  are  still  valid,  the  calculation  is  more  difficult.  An  expression  for  the 
near  field  of  an  arbitrary  monopole  has  been  determined  in  a  manner  similar  to  one  used 
in  the  literature[6|.  This  expression,  in  polar  coordinates,  is 


E(r,^,  <t>)  =  Eo 


ri  \  r  ) 


+ 


A. 

sin^ 


r 


Lcosd\ 
r  ) 


eikr 

- (cos  kL  +  i  cos  9  sin  kL) 


©,  (50) 


where  L  is  the  length  of  the  monopole,  r  is  the  distance  from  the  feedpoint  of  the  monopole, 
ri  is  the  distance  from  the  opposite  end  of  the  monopole,  and  Eo  is  defined  by  Eq.  (11). 

For  a  quarter-wave  monopole,  Eq.  (50)  reduces  to 


E(r,9,(/>)  = 


-h 


A/ 

\ 

1 

kr  \ 

r 

2  ri  ) 

Eo 

(l  ^ 

sin^ 

\  2krcos9/  r 

i  cos  9 


0. 


(51) 
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The  final  expression  used  to  obtain  the  NAVSPASUR  element’s  free-space  near  field 
has  been  derived  from  the  quarter- wave  monopole  expression  via  coordinate  transformation 
and  superposition,  and  is  given  by 


E(r,e,<f>)  =  Eo 


-E. 


+ 


,-ifcr. 


r2 


TT 


sin 6  cosB  +  sin0  cos^(sin^  6  —  cos^  6  cos^  <f>) 
2kr 


•g-ifcrt 
. 


+ 


.-tfcrj 1 


r2 


^cos  6  cos  6  cos  <f>  -f  sin  6  cos  6  cos  (^(sin^  B  —  cos^B)  | 


X  [l  —  (sin  S  cos  B  —  cos  S  sin  B  cos  ^  © 


—  I - 2t  cos  S  sin  B  cos  (j> 


■g-tfcn  e"**’"* 

-  +  - 

L  ^1  »'2  J 


fl  + 


2kr 


sin^  cosB 


I  cos  6  sin  <f> 


X 


—  (sin  S  cos  B  — 


cos  5  sin0  cos 


$ 


(52) 


where  ri  and  ra  are  the  distances  from  the  two  outside  ends  of  the  dipole,  given  by 


ri 


r2 


(cos  6  sin  B  cos  <t>  -f  sin  6  cos  B)  -|- 


A2 
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/  tA  A2 

\/r^  +  —  (cos  6  sin  B  cos  <i>  -f  sin  6  cos  ^)  +  —  • 
V  2  16 


(53) 

(54) 


Finally,  the  segment  size  and  location  must  be  determined.  The  ground  screen  must 
be  divided  into  segments.  The  maximum  segment  length  is  dictated  by  the  ground  screen 
grid  size  and  must  also  satisfy  the  A/4  maximum  length  requirement.  Test  sources  must 
also  be  chosen  for  the  piecewise  sinusoidal  Galerkin  method  in  accordance  with  standards 
set  in  the  previous  section. 
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As  shown  in  Section  III-B,  aa  NxN  matrix  is  created,  in  which  N  is  the  number  of 
actual  sources,  or  test  dipoles.  N  has  a  practical  upper  limit,  which  is  dependent  on  the 
available  computer  memory.  N  is  proportional  to  both  the  segment  length  and  ground 
screen  size.  First,  an  acceptable  segment  length  must  be  determined.  This  will  dictate  the 
maximum  ground  screen  length  (the  width  is  fixed  at  3.66  m)  which  can  be  used  in  the 
calculation. 

The  segment  length  is  determined  empirically  by  starting  with  a  particular  value  and 
monitoring  the  change  in  the  pattern  as  the  segment  length  is  varied.  As  the  segment  length 
is  decreased,  the  pattern  should  asymptotically  approach  the  correct  result.  The  maximum 
segment  length  that  gives  a  pattern  which  varies  insignificantly  from  the  asymptotic  pattern 
should  be  used.  Once  the  segment  length  is  determined,  the  overall  ground  screen  length 
can  be  determined.  Again,  as  the  screen  is  lengthened,  an  as3Tnptotic  pattern  is  reached. 
With  luck,  this  is  reached  before  the  computer  memory  is  exhausted. 


3.  RESULTS 

The  east-west  single  element  pattern  shown  in  Fig.  4  has  been  obtained  using  the 
piecewise  sinusoidal  Galerkin  method  of  moments.  Calculations  have  shown  that  segments 
corresponding  directly  with  the  grid  spacing  are  adequate  to  produce  an  accurate  pattern. 
That  is,  a  combination  of  segments  of  length  0.305  m  (the  east-west  grid  spacing)  and 
0.076  m  (the  north-south  grid  spacing)  can  be  used. 

For  the  current  work,  computer  memory  limitations  prevented  using  a  sufficiently 
long  groimd  screen  to  reach  the  asymptotic  north-south  element  pattern.  Fortunately, 
the  portion  of  the  pattern  which  was  still  changing  significantly  as  the  ground  screen  was 
lengthened  was  the  section  near  the  horizontal  in  the  north-south  plane.  Since  the  purpose 
of  computing  the  element  pattern  is  to  allow  for  the  calculation  of  the  transmitter  antenna 
pattern,  this  is  not  a  serious  problem.  The  electric  field  of  the  element  at  north-south 
angles  near  the  horizontal  does  not  contribute  to  the  main  lobe  or  near  sidelobes  of  the 
transmitter  antenna  beam  pattern,  which  are  near  vertical.  The  near  sidelobes  are  the 
only  sidelobes  of  significant  strength. 

The  wire  comp>osition  is  unknown,  but  this  is  not  a  serious  problem.  Metals  in  general 
have  a  high  conductivity  at  216.980  MHz.  So  the  perfect  conductor  approximation  should 
be  good. 

The  replacement  ground  screen  will  not  affect  the  pattern  significantly,  since  the 
width  of  the  ground  screen  is  the  major  factor  in  determining  the  east-west  pattern.  The 
bars  were  chosen  for  sturdiness.  The  nsirrow  spacing  was  chosen  to  lessen  the  lezikage  of 
radiation  through  the  ground  screen.  The  present  leakage  is  not  a  significant  part  of  the 
total  power,  but  is  above  safety  limits. 
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4.  DISCUSSION 


Since  the  purpose  of  this  calculation  is  to  obtain  a  good  model  for  the  present 
NAVSPASUR  elements,  the  calculation  must  be  compared  to  the  actual  pattern.  Although 
no  information  is  available  concerning  a  single  element  pattern,  some  direct  information 
can  be  obtained  from  the  transmitter  antenna  patterns.  This  is  possible  because  the  shape 
of  the  east-west  element  pattern  is  the  same  as  that  of  the  east-west  antenna  pattern.  The 
north-south  pattern,  as  well  as  any  pattern  in  an  off  east-west  plane,  is  altered  when  the 
element  is  incorporated  into  the  antenna  array,  so  no  comparison  between  the  calculated 
single  element  pattern  with  actual  transmitter  antenna  patterns  can  be  made.  Thus  these 
patterns  have  been  ignored. 

The  3  dB  and  6  dB  east-west  beam  widths  of  the  single  element  calculation  and  the 
transmitter  antennas  can  be  compared.  The  reported  3  dB  and  6  dB  east-west  antenna 
beam  widths  are  115“  and  140“,  resp>ectively{7].  The  calculated  single  element  widths  of 
112“  smd  136“  agree  well  with  these  values,  and  are  certainly  an  improvement  over  the 
predictions  for  infinite  ground  screen  widths  of  112“  and  170“. 

As  can  be  seen  by  comparing  Figs.  3  and  4,  the  finite  wire-grid  ground  screen  pattern 
differs  significantly  from  the  infinite  ground  screen  patterns  at  angles  below  65“  with 
respect  to  vertical.  This  is  supported  by  the  6  dB  beam  width  comparison.  Therefore,  the 
use  of  the  infinite  ground  screen  approximation  in  transmitter  antenna  model  exaggerates 
system  capabilities  at  low  angles. 

The  finite  ground  screen  calculation  has  been  performed  with  the  benefit  of  several 
assumptions.  Many  of  these  eissumptions  need  not  be  made,  but  not  malcing  them  in¬ 
creases  the  complexity  of  the  calculation.  Possible  refinements  to  the  calculation  include 
accounting  for  the  finite  conductivity  of  the  elements  and  the  ground  screen,  the  mutual 
inductance  between  the  monopoles  of  the  element,  and  the  mutual  inductance  between  the 
element  and  the  ground  screen. 

The  calculated  pattern  parameters  agree  well  with  the  reF>orted  parameter  values,  so 
further  refinements  are  expected  to  make  only  minor  changes  to  the  pattern.  Also,  these 
changes  may  not  make  the  calculated  pattern  agree  more  closely  with  the  actual  pattern, 
since  other  factors  cannot  be  accurately  modeled.  Among  these  are  unknown  deviations 
from  reported  structural  specifications  and  the  effect  of  the  uneven  terrain  in  the  immediate 
area  of  the  antennas.  Therefore,  the  calculation  has  been  terminated  at  this  point. 

The  analytic  tools  developed  for  this  caJculation,  can  easily  be  used  to  perform  cal¬ 
culations  of  other  antenna  elements  positioned  over  finite  wire-grid  ground  screens.  In 
particulsu:,  the  NAVSPASUR  receiver  element  patterns  can  be  calculated  in  the  same 
manner,  with  only  minor  changes  in  our  computer  code.  The  code  is  discussed  in  more 
detail  in  the  Appendix. 
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V.  ANTENNA  PATTERNS 

The  specifications  quoted  in  Section  II  were  used  to  calculate  the  transmitter  antenna 
patterns.  The  element  beam  patterns  are  assumed  to  be  identical  for  each  element.  Al¬ 
though  the  grotmd  screen  ends  will  have  an  effect  on  the  beam  patterns  of  elements  near 
the  ends  of  the  antenna  bays,  given  the  small  number  of  dipoles  to  which  this  condition 
applies,  the  overall  effect  on  the  antenna  beam  pattern  is  insignificant. 

The  fzir-field  calculations  of  the  antenna  beam  pattern  are  easily  performed  by  con¬ 
volving  the  element  pattern  with  the  array  pattern.  Here,  the  array  pattern  refers  to  the 
pattern  resulting  from  an  array  of  isotropic  point  sources  fed  in  phase.  However,  near-field 
patterns  must  be  produced  via  an  element-by-element  summation  to  obtain  the  electric 
field  at  any  point  in  space.  Use  of  the  current  distributions  of  the  segments  to  calculate  the 
patterns  directly  would  consume  unacceptable  amounts  of  CPU  time  (about  60  CPU-days 
for  a  single  pattern  on  a  VAX  11/750!).  Fortxmately,  the  electric  field  expression  of  the  ele¬ 
ment  over  the  region  of  concern  can  be  well  approximated  with  two  polynomial  equations. 
This  reduces  the  computation  time  considerably,  making  near-field  calculations  feasible. 

A.  Kickapoo  Complex 

The  north-south  near-field  beam  patterns  of  the  Kickapoo  complex  are  the  patterns 
of  greatest  importance.  Since  the  near  field  extends  to  about  15,000  km,  most  of  the 
satellites  detected  by  NAVSPASUR  pass  through  the  fence  within  this  range.  Several 
north-south  power  density  patterns  along  with  the  electric  field  phase  plots  axe  shown  for 
various  satellite  ranges  in  Figs.  5-13.  The  near-field  power  density  patterns  are  plotted  as 
power  density  versus  angle  with  zero  degrees  representing  vertical.  The  power  density  is 
plotted  in  units  of  dBm,  or  deciBels  above  or  below  1  milliWatt.  Note  that  the  scale  of 
the  angle  axis  varies  with  range,  to  accommodate  the  varying  width  of  the  main  lobe  of 
the  patterns. 

The  fax-field  (infinite  range)  pattern  (Fig.  5)  has  the  expected  linear  array  shape,  a 
main  vertical  lobe  with  sidelobes  of  decreasing  power  away  from  vertical.  The  range  of 
100,000  km  is  well  within  the  far-field  region  and  that  pattern  (Fig.  6a)  closely  resembles 
the  fax-field  pattern. 

Only  far-field  parauneters  of  the  transmitter  antennas  axe  reported  in  NAVSPASUR 
handbooks[7,8].  Our  calculated  north-south  3  dB  faur-field  beamwidth  of  0.021®  agrees  with 
the  reported  value,  as  does  the  first  sidelobe  level  of  —13  dB.  The  calculated  directivity  of 
40.1  dB  is  slightly  less  than  the  rep>orted  gain  value  of  42  dB.  The  east-west  beam  widths 
axe  the  same  as  the  element  pattern,  as  discussed  in  Section  IV-C-4. 

Although  the  near-field  parameters  are  not  reported,  the  cedculation  is  straight-forward 
and  we  axe  confident  of  our  results.  As  the  transmitter  Eintenna  rainge  falls  within  the  near¬ 
field  region  the  sidelobe  gaps  stau’t  to  fill  in  and  the  sidelobe  levels  increase  relative  to  the 
main  lobe  (Figs.  7a-9a).  Well  inside  the  near-field  region  (see  e.g.  1,000  km  -  Fig.  10a), 
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the  peak  power  density  is  no  longer  in  the  vertical  direction  and  the  main  lobe  merges 
with  the  sidelobes  to  create  a  wider  main  lobe  whose  characteristics  are  not  well-defined. 
The  width  and  shape  of  this  main  lobe  is  range  dependent  and  the  power  density  can  have 
variations  greater  than  3  dB  (Figs.  10a-13a).  The  3  dB  beamwidth  ranges  from  its  far-field 
width  of  0.021®  to  about  1.8®  at  a  range  of  100  km  where  it  is  no  longer  well-defined. 


The  asymmetry  in  the  near-field  patterns  is  produced  by  the  road  gap  in  bay  #8. 
This  asymmetry  disappears  completely  when  bay  #8  is  treated  as  a  normal  bay,  as  can  be 
seen  by  comparing  Fig.  10  with  Fig  15. 

The  power  density  in  the  near  field  has  a  different  range  dependency  than  in  the  far 
field.  This  is  shown  in  Fig.  14,  which  compares  power  density  in  the  vertical  direction  of 
the  Kickapoo  complex  with  a  theoretical  point  source  antenna  of  the  same  power.  This  plot 
show  three  distinct  regions,  corresponding  roughly  with  the  three  decades.  The  far-field 
region  corresponds  roughly  to  the  third  decade  (10,000-100,000  km).  In  this  region  the 
range  dependency  of  the  antennas  is  the  same.  The  middle  decade  (1,000-10,000  km)  is  a 
transition  region,  where  both  near-field  and  far-field  characteristics  are  seen  in  the  power 
density  patterns  of  the  Kickapoo  complex  and  deviations  from  the  point  source  occur.  The 
vertical  power  density  at  1,000  km  is  actually  less  than  that  at  2,000  km.  Below  2,000  km 
the  vertical  direction  no  longer  represents  the  peak  power  density.  The  first  decade  shows 
a  great  difference  between  the  two  power  densities,  although  both  show  a  well-behaved 
range  dependency. 

The  electric  field  phase  patterns  also  exhibit  a  difference  between  the  far-field  and 
nezu’-field  patterns.  For  ranges  greater  than  5,000  km  the  phase  is  relatively  constant 
across  the  main  lobe.  Inside  this  range  the  phase  reaches  a  minimum  at  vertical  but 
exhibits  a  sharp  rise  on  both  sides  of  the  vertical. 


Clearly,  the  near-field  patterns  reveal  that  any  model  of  the  Kickapoo  complex  must 
include  near-field  effects.  The  assumption  of  feur-field  behavior  may  easily  lead  to  false  con¬ 
clusions.  Specifically,  below  1,000  km  power  densities  are  overestimated  and  beamwidths 
are  underestimated  by  over  an  order  of  magnitude.  Also  below  5,000  km  phase  varia¬ 
tions  across  the  beam  are  important.  Such  phase  variations  are  not  expected  to  affect 
the  Doppler  determinations  for  Kickapoo-illuminated  satellite  returns  (since  they  are  sym¬ 
metric),  but  are  believed  to  be  the  source  of  the  documented  chirp  bias  associated  with 
Kickapoo  observations[9]. 

B.  Gila  River 

The  Gila  River  antenna  near  field  extends  only  to  about  360  km.  Only  a  few  satellites 
are  observed  inside  this  range.  Figure  16  shows  the  100  km  beam  pattern,  which  can  be 
compared  to  the  far-field  pattern,  shown  in  Fig.  17. 
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The  far-field  3  dB  beamwidth  and  the  first  sidelobe  levels  agree  well  with  the  reported 
values  of  0.14®  and  —13  dB,  respectively.  As  with  the  Kickapoo  complex,  the  calculated 
directivity  of  31.9  is  lower  than  the  reported  gmn  VEilue  of  34  dB. 

C.  Jordan  Lake 

The  Jordan  Lake  antenna  is  slightly  shorter  than  the  Gila  River  antenna.  Its  near 
field  extends  to  about  140  km,  so  its  near-field  plays  the  least  significant  role. 

Jordan  Lake’s  far-field  pattern,  shown  in  Fig.  18,  has  far-field  3  dB  beamwidth  and 
first  side  lobe  levels  which  agree  with  the  reported  values  0.22“  and  —13  dB,  respectively. 
Again,  the  calculated  directivity  value  of  30.1  is  less  than  the  reported  gain  value  of  32  dB. 

D.  Discussion 

Our  transmitter  calculations  clearly  show  that  although  the  far-field  approximation 
can  be  used  for  the  Gila  River  and  Jordan  Lake  transmitting  antennas,  near-field  effects 
must  be  included  in  any  model  of  the  Kickapoo  complex.  We  have  developed  such  a  model, 
which  can  be  used  as  is,  or  incorporated  into  any  NAVSPASUR  system  model. 

The  computer  code,  which  is  discussed  in  more  detail  in  the  Appendix,  has  been 
designed  to  provide  versatility  in  antenna  calculations.  Among  the  variables  which  can  be 
changed  are  range,  angles,  and  complex  element  current. 

Besides  the  antenna  calculations  detailed  in  the  previous  sections,  antenna  calculations 
which  include  random  and  systematic  current  phase  and  amplitude  errors  of  individual 
elements  or  bays  have  been  performed.  We  will  report  these  results  in  a  sepeirate  paper. 

VI.  CONCLUSIONS 

We  have  p>erformed  an  accurate,  detailed  cailculation  of  the  NAVSPASUR  transmitter 
antenna  element  pattern,  and  have  used  this  element  pattern  to  obtain  a  set  of  near-  and 
far-field  beam  patterns  for  the  three  NAVSPASUR  transmitter  antennas.  These  patterns 
represent  the  first  detailed  calculations  of  the  performance  of  the  NAVSPASUR  transmitter 
antennas  which  properly  account  for  the  effects  of  the  finite  wire-grid  ground  screen. 

The  east-west  patterns  of  the  antennas  are  a  significant  improvement  over  patterns 
obtained  with  the  assumption  of  an  infinite  ground  plEine.  For  angles  near  the  horizon 
the  infinite  ground-plane  assumption  substantially  overestimates  the  radiation  intensity 
transmitted  by  the  antennas. 

The  north-south  beam  patterns  we  have  derived  demonstrate  that  the  Gila  River 
and  Jordan  Lake  transmitters  can  be  accurately  modeled  using  a  far-field  approximation. 
However,  the  far-field  approximation  is  clearly  inappropiate  for  the  Kickapoo  complex. 
At  ranges  below  about  2,000  km  the  radiation  intensity  is  significantly  overestimated  and 
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the  beamwidth  significantly  underestimated  using  that  assumption.  Further,  for  ranges 
imder  5,000  km  neax-field  effects  introduce  significant  phase  variations  across  the  beam. 
These  phase  variations  may  introduce  systematic  errors  in  the  derived  Doppler  and  chirp 
for  targets  illuminated  by  the  Kickapoo  transmitter. 

We  believe  our  NAVSPASUR  transmitter  antenna  model  provides  a  solid  founda¬ 
tion  for  a  broader  NAVSPASUR  system  model.  Our  results  can  be  incorporated  into  a 
NAVSPASUR  system  simulation  program  to  provide  a  better  understanding  of  the  capa¬ 
bilities  of  the  present  system.  Thus,  informed  decisions  involving  future  enhancements  to 
the  NAVSPASUR  system  can  be  made. 

Of  further  importance  are  the  analytic  tools  which  we  have  developed.  An  equally 
accurate  and  detailed  model  of  the  present  receiver  antennas  can  be  obtained  using  these 
same  tools.  Also,  the  versatility  of  our  computer  code  allows  proposed  changes  to  either 
the  transmitter  or  receiver  antennas  to  be  easily  and  accurately  evaluated. 
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APPENDIX-COMPUTER  CODE 
A.  THINWIRE 

THINWIRE.FOR  is  the  FORTRAN  code  used  to  generate  the  current  values  J„  using 
the  piecewise  sinusoidal  Galerkin  method.  Some  of  the  subroutines  in  THINWIRE  are 
adapted  from  a  general  code  developed  by  Richmond  in  1970[10].  THINWIRE  incorporates 
Richmond’s  pertinent  subroutines  with  subroutines  we  have  developed,  which  are  specific 
to  the  NAVSPASUR  geometry. 

Although  THINWIRE  was  developed  sp>ecifically  for  the  element  pattern,  its  flexible 
modular  structure  makes  it  convenient  to  substitute  other  subroutines  for  the  present  ones 
to  generate  the  ground  screen  currents  for  other  elements.  The  next  logical  use  of  this 
algorithm  would  be  to  calculate  the  NAVSPASUR  receiver  element  patterns. 

B.  GEN_ARRAY 

GEN-ARRAY  is  a  versatile  VAX/VMS  command  file  which  is  short  for  general  array 
program.  This  can  generate  a  number  of  unknowns  for  a  general  array. 

GEN-ARRAY  has  four  variable  parameters:  PI,  P2,  P3,  and  P4.  PI  is  the  name  of 
the  main  FORTRAN  program  to  be  executed.  P2  is  the  name  of  the  element  position  file 
which  holds  the  subroutine  ELPOS.  P3  is  the  name  of  the  file  containing  the  subroutine 
CURRNT.  P4  is  the  file  containing  ELFFLD.  GEN -ARRAY  compiles,  links,  emd  runs  the 
code,  2uid  assigns  the  appropriate  FORTRAN  unit  numbers  to  the  input  and  output  files. 

The  main  program  determines  the  information  that  is  extracted  from  the  electric 
fields  of  the  ru’ray  of  interest.  It  czJls  the  subroutine  ARRAY-SBR  which  inputs  the 
range  and  two  direction  angles  to  point  of  interest  and  returns  three  complex  components 
of  the  array’s  electric  field.  The  main  program  then  uses  these  values  to  determine  the 
parameter  of  interest.  A  general  purpose  program  named  NEARFLD  has  been  developed 
for  the  calculations  presented  in  this  paper. 

NEARFLD  computes  power  density  at  a  selected  reinge  for  the  near-field  beam  pat¬ 
terns.  The  program  is  designed  so  that  the  otherwise  useless  range  value  of  zero  triggers 
a  far-field  calculation.  NEARFLD  also  computes  the  electric  field  phase  at  the  selected 
points  in  space. 

ELPOS,  CURRNT,  and  ELFFLD  are  the  names  of  the  subroutines  called  by  the 
subroutine  ARRAY-SBR.  Each  of  these  names  represents  a  set  of  specific  subroutines  of 
the  same  subroutine  name,  but  with  unique  file  names.  The  limitations  of  FORTRAN 
prevent  a  variable  name  in  the  CALL  statement.  Therefore,  GEN -ARRAY  is  used  to 
maintain  versatility  by  choosing  the  specific  files  of  interest  2ind  linking  them  with  the 
main  program. 
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ELPOS  provides  the  ntunber  of  elements  in  the  array  and  their  positions.  Two  ELPOS 
files  have  been  created  with  names  ELPOS-TRNS  and  ELPOS_RCVR,  which  provide  the 
information  for  the  transmitters  and  receivers,  resp>ectively.  Input  files  that  are  read  by 
these  subroutines  allow  one  to  choose  the  p^ticular  transmitter  or  receiver  configuration. 
ELPOS-TRNS  also  provides  for  the  special  case  of  a  single  element  zrray  for  element 
patterns. 

CURRNT  provides  the  amplitude  and  phase  of  the  input  current  for  each  element  in 
the  Eirray.  Four  subrountines  have  been  created.  CURRNT JSTND  provides  a  random  dis¬ 
tribution  of  complex  current  values  to  the  array  elements  with  a  specified  mean  amplitude 
and  phase.  CURRNT-RBAY  provides  a  random  distribution  of  mean  complex  current  vad- 
ues  for  the  bays  of  the  Kickapoo  complex.  However,  all  elements  within  a  bay  are  excited 
in  phaise.  CURRNT-SBAY  provides  systematic  bay-to-bay  amplitude  and  phase  errors 
with  all  elements  within  a  bay  excited  in  phase.  CURRNT JISBY  provides  systematic 
bay-to-bay  amplitude  and  phase  errors,  together  with  randomly  distributed  amplitudes 
and  phases  among  the  elements  within  the  bay. 

ELFFLD  returns  the  far  electric  field  values  at  a  specified  point  in  space  for  a  partic¬ 
ular  element.  Five  subroutines  have  been  created.  ELFFLD-TRNS  provides  the  fax-field 
values  for  a  transmitter  element  above  a  finite  ground  screen  using  the  current  values  cal¬ 
culated  by  THINWIRE.  ELFFLD-APRX  provides  the  the  transmitter  element’s  far-field 
values  using  a  polynomial  approximation.  The  transmitter  element  pattern  in  free  space 
emd  over  and  infinite  ground  plane  are  obtained  by  ELFFLD _AHHW  and  ELFFLD _AHGP, 
respectively.  ELFFLD-RCVR  provides  the  NAVSPASUR  receiver  element’s  far-field  values 
for  a  receiver  element  above  an  infinite  ground  plane. 

These  subroutines  allow  one  to  the  cedculate  patterns  for  a  number  of  different  sit¬ 
uations.  Certainly  others  can  be  created.  The  combination  of  the  subroutines  with 
THINWIRE’s  flexibility  allows  for  quick  and  easy  adaptation  to  a  variety  of  specific  con¬ 
figurations. 
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CONDUCTING  MEDIUM",  National  Technical 
Information  Service,  Springfield,  VA  22151, 
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PROGRAM  ALGORITHM  (PSEUDOCODE); 

1.  Calculate  mutual  impedance. 

2.  RETURN 

INPUTS  EXPLICIT: 

D 

CGDS 

CPSI 

ETA 

GAM 

51 

52 

SGDl 

SGD2 

T1 

T2 


IMPLICIT:  NONE 


OUTPUTS  EXPLICIT: 
Pll 
P12 
P21 
P22 


IMPLICIT:  NONE 

OTHER  MAJOR  VARIABLES: 

SYSTEM  STATE  CHANGES:  NONE 


MODIFIED: 

Dr.  Steven  L.  Berg,  11/30/88 
-  Added  header 


IMPLICIT  REAL*8(A-H,0-Z) 

C0MPLEX*16  CGDS , SGDS , SGDT , Pll , P12 , P21 , P22 , CST , SGDl , SGD2 , C , B 
C0MPLEX*16  ETl , ET2 , ESI , ES2 , EXPA , EXPB , EB , EC , EK , EL , EKL . EGZI 
C0MPLEX*16  E(2,2),F(2,2),EGZ(2,2),GM(2),GP(2) 

COMPLEX* 16  ETA, GAM 
DATA  PI/3.141592653589793/ 

DSQ=D*D 

SGDS=SGD1 

IF( S2 . LT . Si ) SGDS=-SGD1 
SGDT=SGD2 

IF(T2.LT.T1)SGDT=-SGD2 
IF(DABS(CPSI).GT. .997)  GO  TO  110 
ES1=CDEXP(GAM*S1) 

ES2=CDEXP(GAM*S2) 

ET1=CDEXP(GAM*T1) 


ET2=CDEXP(GAM*T2) 

DD»D 

DPSI=CPSI 

TD1=T1 

TD2=T2 

CPSS=DPSI*DPSI 
CD=DD/DSQRT( 1 . DO-CPSS ) 

C=DCMPLX(O.ODO,CD) 

BD=CD*DPSI 

B=DCMPLX(O.ODO,BD) 

EB=CDEXP(GAM*B) 

EC=CDEXP(GAM*C) 

DO  10  K=l,2 
DO  10  L=l,2 
10  E(K,L)=(.0,.0) 

TS1=TD1*TD1 

TS2=TD2*TD2 

DPQ=DD*DD 

SI=S1 

DO  100  1=1,2 
FI=(-1)**I 
SDI=SI 
SIS=SDI*SDI 
ST1=2 . *SDI*TD1*DPSI 
ST2=2 . *SDI*TD2*DPSI 
R1=DSQRT(DPQ+SIS+TS1-ST1) 

R2=DSQRT(DPQ+SIS+TS2-ST2) 

EK=EB 

DO  50  K=l,2 
FK=x(-l)**K 
SK=FK*SDI 
EL=EC 

DO  40  L=l,2 
FL=(-1)**L 
EKL=EK*EL 
XX=FK*BD+FL*CD 
TL1=FL*TD1 
TL2=FL*TD2 
RR1=R1+SK+TL1 
RR2=R2+SK+TL2 

CALL  EXPJ(GAM*DCMPLX(RR1 , -XX) ,GAM*DCMPLX(RR2 , -XX) , EXPA) 
CALL  EXPJ(GAM*DCMPLX(RR1 , XX) ,GAM*DCMPLX(RR2 , XX) , EXPB) 
E(K,L)=E(K,L)+FI*(EXPA*EKL+EXPB/EKL) 

40  EL=1./EC 
50  EK=1./EB 

ZD=SDI*DPSI 

ZC=ZD 

EGZI=CDEXP(GAM*ZC) 

RR1=R1+ZD-TD1 

RR2=R2+ZD-TD2 

CALL  EXPJ(GAM*RR1,GAM*RR2,EXPB) 

RR1=R1-ZD+TD1 

RR2=R2-ZD+TD2 

CALL  EXPJ(GAM*RR1,GAM*RR2,EXPA) 

F( I , 1 ) =2 . *SGDS*EXPA/EGZI 
F( I , 2 ) =2 . *SGDS*EXPB*EGZI 
100  SI»S2 

CST=ETA/ ( 16 . *PI*SGDS*SGDT) 

P11=CST*((  F(1,1)+E(2,2)*ES2-E(1,2)/ES2)*ET2 
2  +(-F(1,2)-E(2,1)*ES2+E(1,1)/ES2)/ET2) 


ooonoooooooooo 


P12=CST*((-F(1,1)-E(2,2)*ES2+E(1,2)/ES2)*ET1 
2  +(  P(1,2)+E(2,1)*ES2-E(1,1)/ES2)/ET1) 

P21.CST*((-F(2,1)-E(2,2)*ES1+E(1,2)/ES1)*ET2 
2  +(  F(2,2)+E(2,1)*ES1-E(1,1)/ES1)/ET2) 

P22=CST*((  F(2,1)+E(2,2)*ES1-E(1,2)/ES1)*ET1 
2  +(-F(2,2)-E(2,1)*ES1+E(1,1)/ES1)/ET1) 

RETURN 

110  IF(CPSI.LT.O.)GO  TO  120 
TA=T1 
TB=T2 
GO  TO  130 
120  TA=-T1 
TB*-T2 
SGDT=-SGDT 
130  SI=S1 

DO  150  1=1,2 
TJ=TA 

DO  140  J=l,2 
2IJ=TJ-SI 

R=DSQRT(DSQ+ZIJ*ZIJ) 

W=R+ZIJ 

I F ( ZIJ . LT . 0 . ) U=DSQ/ ( R-ZIJ ) 

V=R-ZIJ 

IF<ZIJ.GT.O. )V=DSQ/(R+ZIJ) 

IF(J.EQ.1)V1=V 
IF(J.EQ.1)W1=W 
EGZ  < I , J ) =CDEXP ( GAM*ZIJ ) 

140  TJ=TB 

CALL  EXPJ(GAM*V1,GAM*V,GP(I)) 

CALL  EXPJ(GAM*W1,GAM*W,GM(I)) 

150  SI=S2 

CST=-ETA/ (8 . *PI*SGDS*SGDT) 

P11=CST*(GM(2)*EGZ(2,2)+GP(2)/EGZ(2,2) 

2-CGDS*(GM(l)*EGZ(l,2)+GP(l)/EGZ(l,2))) 

P12=CST*(-GM(2)*EGZ{2,1)-GP(2)/BGZ(2,1) 

2+CGDS*(GM(l)*EGZ(l,l)+GP(l)/EGZ(l,l))) 

P21=CST*(GM(1)*EGZ(1,2)+GP(1)/EGZ(1,2) 

2-CGDS*(GM(2)*EGZ(2,2)+GP(2)/EGZ(2,2))) 

P22=CST*(-GM( 1 )*EGZ( 1 , 1 )-GP( 1 )/EGZ( 1,1) 
2+CGDS*(GM(2)*EGZ(2,l)+GP(2)/EGZ(2,l))) 

RETURN 

END 

C 

c+ 

SUBROUTINE  EXPJ(V1,V2,W12) 

*  * 

*  SUBROUTINE  EXPJ  * 

*  * 

AUTHOR;  J.  H.  RICHMOND,  OHIO  STATE  UNIVERSITY  ELECTROSCIENCE  LAB 

REFERENCE  :  J.  H.  Richmond,  "COMPUTER  PROGRAM  FOR 
THIN-WIRE  STRUCTURES  IN  A  HOMOGENEOUS 
CONDUCTING  MEDIUM",  National  Technical 
Information  Service,  Springfield,  VA  22151, 
NASA  Contract  Report  CR-2399,  June  1974 

DATE:  JUNE-1974 


o  o  o 


LANGUAGE;  VAX  FORTRAN 

FILE;  MV7770; ; SPACE; [ BERG. THINWIREJTHINVIRE. FOR 

C  CALLING  ROUTINE;  MV7770; ; SPACE; [BERG. THINWIREJTHINVIRE. FOR 

C 

C  SUBROUTINES  CALLED;  NONE 
C 

C  COMPILE  INSTRUCTIONS;  $  FORTRAN  THINVIRE 

C 

C  LINK/LOAD  INSTRUCTIONS ( TKB ) ;  $  LINK  THINVIRE 
C 

C  PARENT  PROGRAM:  THINVIRE. FOR 

C 

C  PROGRAM  DESCRIPTION; 

C  This  program  calculates  an  exponential  integral.  For  more 

C  information  consult  APPENDIX  7  in 
C  J.  H.  Richmond,  "COMPUTER  PROGRAM  FOR 

C  TBIN-WIRE  STRUCTURES  IN  A  HOMOGENEOUS 

C  CONDUCTING  MEDIUM",  National  Technical 

C  Information  Service,  Springfield,  VA  22151, 

C  NASA  Contract  Report  CR-2399,  June  1974. 

c 

C  PROGRAM  ALGORITHM  (PSEUDOCODE); 


c 

c 

1. 

Calculate  exponential  integral. 

c 

r 

2. 

RETURN 

V 

c 

INPUTS 

EXPLICIT; 

c 

VI 

-  lower  limit  of  exponential  integral 

c 

c 

V2 

-  upper  limit  of  exponential  integral 

c 

c 

IMPLICIT;  NONE 

c 

OUTPUTS 

EXPLICIT; 

c 

c 

W12 

-  exponential  integral  value 

C  IMPLICIT;  NONE 

C 

C  OTHER  MAJOR  VARIABLES; 

C 

C  SYSTEM  STATE  CHANGES;  NONE 
C 
C- 
C 

C  MODIFIED; 

C  Dr.  Steven  L.  Berg,  11/30/88 

C  -  Added  header 

C 

IMPLICIT  REAL*8(A-H,0-Z) 

C0MPLEX*16  V1,V2,Z,E15,UC,VC,W12,S,EC,T 
DIMENSION  V(21),W(21),D(16),E(16) 

DATA  PI/3.141592653589793/ 

DATA  V/  0.22284667E  00, 

20.11889321E  01,0.29927363E  01,0.57751436E  01,0.98374674E  01, 
30.15982874E  02,0.93307812E-01,0.49269174E  00,0. 12155954E  01, 
40.22699495E  01,0.36676227E  01,0.54253366E  01,0.75659162E  01, 
50.10120228E  02,0. 13130282E  02,0. 16654408E  02,0. 20776479E  02, 
60.25623894E  02,0. 31407519E  02,0.38530683E  02,0.48026086E  02/ 
DATA  W/  0.45896460E  00, 


20.41700083E  00,0. 11337338E  00,0.10399197E-01,0.26101720E-03, 
30.89854791E-06,0.21823487E  00,0.34221017E  00,0.26302758E  00, 
40.12642582E  00,0.40206865E-01,0.85638778E-02,0.12124361E-02, 
50.11167440E-03,0.64599267E-05,0.22263169E-06,0.42274304E-08, 

60. 39218973E-10,0. 14565152E-12,0. 14830270E-15,0. 16005949E-19/ 

DATA  D/  0.22495842E  02, 

2  0.74411568E  02,-0.41431576E  03,-0. 78754339E  02,  0.11254744E  02, 

3  0.16021761E  03,-0.23862195E  03,-0.50094687E  03,-0.68487854E  02, 

4  0.12254778E  02,-0. 10161976E  02,-0.47219591E  01,  0.79729681E  01, 
5-0.21069574E  02,  0.22046490E  01,  0.89728244E  01/ 

DATA  E/  0.21103107E  02, 

2- 0.37959787E  03,-0.97489220E  02,  0.12900672E  03,  0.17949226E  02, 

3- 0.12910931E  03,-0.55705574E  03,  0.13524801E  02,  0.14696721E  03, 

4  0.17949528E  02,-0.32981014E  00,  0.31028836E  02,  0.81657657E  01, 

5  0.22236961E  02,  0.39124892E  02,  0.81636799E  01/ 

Z=V1 

DO  100  JIM=1,2 
X=DREAL(Z) 
y=DIHAG(Z) 

E15=(.0,.0) 

AB=CDABS(Z) 

IF(AB.EQ.O.)  GO  TO  90 

IF(X.GE.O.  .AND.  AB.GT.IO.)  GO  TO  80 

YA=DABS(Y) 

IF(X.LE.O.  .AND.  YA.GT.IO.)  GO  TO  80 

IF(YA-X.GE.17.5.0R.YA.GE.6.5.0R.X+YA.GE.5.5.0R.X.GE.3.)  GO  TO  20 
IF(X.LE.-9)  GO  TO  40 
IF(YA-X.GE.2.5)  GO  TO  50 
IF(X+YA.GE.1.5)  GO  TO  30 
10  N=6.+3.*AB 

E15=1./(N-1.)-Z/N**2 
15  N=N-1 

E15=1./(N-1.)-Z*E15/N 
IF(N.GE.3)  GO  TO  15 

E15=Z*E15-DCMPLX( . 577216+DL0G(AB) , DATAN2( Y,X) ) 

GO  TO  90 
20  Jl=l 

J2=6 

GO  TO  31 

30  Jl=7 
J2=21 

31  S*(.0,.0) 

YS=Y*Y 

DO  32  I=J1,J2 
XI=V(I)+X 
CF=W(I)/(XI*XI+YS) 

32  S=S+DCMPLX(XI*CF,-YA*CF) 

GO  TO  54 

40  T3=X*X-Y*Y 

T4=2.*X*YA 
T5=X*T3-YA*T4 
T6=X*T4+YA*T3 

UC=DCMPLX(D(11)+D(12)*X+D(13)*T3+T5-E(12)*YA-E(13)*T4, 

2  E(11)+E(12)*X+E(13)*T3+T6+D(12)*YA+D(13)*T4) 

VC=DCMPLX(D( 14)+D( 15)*X+D( 16)*T3+T5-E( 15)*YA-E( 16)*T4 , 

2  E(14)+E(15)*X+E(16)*T3+T6+D(15)*YA+D(16)*T4) 

GO  TO  52 

50  T3=X*X-Y*Y 

T4=2 . *X*YA 
T5=X*T3-YA*T4 


oonoooooononooonooooo 


T6=.X*T4+YA*T3 

T7=X*T5-YA*T6 

T8.X*T6+YA*T5 

T9.X*T7-YA*T8 

T10*X*T8+YA*T7 

UC.DCMPLX( D( 1 ) +D( 2 ) *X+D( 3 ) *T3+D( 4 ) *T5+D( 5 ) *T7 +T9- ( E ( 2 ) *YA+E ( 3 ) *T4 

2  +E(4)*T6+E(5)*T8),E(1)+E(2)*X+E(3)*T3+E(4)*T5+E(5)*T7+T10+ 

3  (D(2)*YA+D(3)*T4+D(4)*T6+D(5)*T8)) 
VC*DCMPLX(D(6)+D(7)*X+D(8)*T3+D(9)*T5+D(10)*T7+T9-(E(7)*YA+E(8) 

2  *T4+E(9)*T6+E(10)*T8),E(6)+E(7)*X+E(8)*T3+E(9)*T5+E(10)*T7+T10+ 

3  (D(7)*YA+D(8)*T4+D(9)*T6+D(10)*T8)) 

52  EC=UC/VC 

S=EC/DCMPLX(X,YA) 

54  EX=DEXP(-X) 

T=EX*DCMPLX(DCOS(YA) ,-DSIN(YA)) 

E15=S*T 

56  IF(Y.LT.0.)E15=DC0NJG(E15) 

GO  TO  90 

80  E15=.409319/(Z+. 193044)+. 421831/(Z+1. 02666)+. 147126/(Z+2. 56788)+ 

2  . 206335E-1 / ( Z+4 . 90035 ) + . 107401E-2/ ( Z+8 . 18215 )+ . 158654E-4/ ( Z+ 

3  12. 7342)+. 317031E-7/(Z+19. 3957) 

E15=E15*CDEXP(-Z) 

90  IF(JIM.EQ.1)W12=E15 

100  Z=V2 

Z=V2/V1 

TH=DATAN2 ( DIMAG ( Z ) , DREAL( Z ) ) -DATAN2 (DIMAG (V2 ) , DREAL( V2 ) ) 
2+DATAN2(DIMAG(Vl),DREAL(Vl)) 

AB=DABS(TH) 

IF(AB.LT.1.)TH=.0 

IF(TH.GT.1.)TH=2.*PI 

IF(TH.LT.-1.)TH«-2.*PI 

TH0=.0 

W12=W12-E15+DCMPLX(THO,TH) 

RETURN 

END 

C 

c+ 

SUBROUTINE  VLTMTX(N,N1,I1,I2,I3,X,Y,Z,ETA,GAM,WL,NVL,CR,CI,IER) 

★  ★ 

*  SUBROUTINE  VLTMTX  * 

★  * 


AUTHOR: 

DATE: 

LANGUAGE: 

FILE: 


DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

08-FEBRUARY-1988 

VAX  FORTRAN 

MV7770: : SPACE:  ( BERG . THINVIRE  J THINWIRE .  FOR 


CALLING  ROUTINE:  MV7770: :SPACE: [BERG. THINWIRE]THINWIRE. FOR 

SUBROUTINES  CALLED:  QATR  -  computes  an  approximation  for  a 

function  f(l)  integrated  along  1  from 
LL  to  LU,  where  1  is  a  linear 
coordinate  along  an  arbitrary  line  in 
space. 

COMPILE  INSTRUCTIONS:  $  FORTRAN  THINVIRE 


oooooorjooooooonoooooocjoooorjooooofsoooooooooooooooooonoooonooo 


LINK/LOAD  INSTRUCTIONS(TKB):  $  LINK  TflINVIRE 
PARENT  PROGRAM;  THINWIRE.FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  calculates  an  excitation  voltage  matrix  for  the 
electric  field  from  a  NAVSPASUR  transmitter  element  incident  on  a 
thin-wire  structure. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  Select  integration  parameters. 

2.  DO 

for  all  test  dipoles 

Select  integration  limits  for  first  monopole. 

CALL 

-  real  part  of  excitation  voltage. 

CALL 

-  imaginary  part  of  excitation  voltage. 

Select  integration  limits  for  second  monopole. 

CALL 

-  real  part  of  excitation  voltage. 

CALL 

-  imaginary  part  of  excitation  voltage. 

Add  two  monopole  values  together  for  matrix  value. 


ENDDO 

3.  RETURN 
INPUTS  EXPLICIT; 

ETA  -  intrinsic  impedance  of  ambient  medium  (mks  units) 

GAM  -  complex  propagation  constant  of  ambient  medium  (mks 

units) 

I1(T)  -  1st  endpoint  of  test  dipole  I 

12(1)  -  2nd  endpoint  of  test  dipole  I 

13(1)  -  3rd  endpoint  of  test  dipole  I 

N  -  total  #  of  test  dipoles 

N1  -  #  of  test  dipole  modes  in  one  quadrant  of  the  ground 

screen,  which  have  symmetric  counter  parts  in  the 
other  three  quadrants. 

NVL  -  column  number  for  excitation  voltage  column  matrix 
X(I)  -  X  coordinate  of  endpoint  I  (meters) 

Y(I)  -  y  coordinate  of  endpoint  I  (meters) 

Z(I)  -  z  coordinate  of  endpoint  I  (meters) 

WL  -  wavelength  (meters) 

IMPLICIT:  NONE 

OUTPUTS  EXPLICIT: 

CI(I,NVL)  -  imaginary  part  of  excitation  voltage  matrix 


oo  ooo  ooo  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  n  rj  O  O  O  CJ  o  o  o  o  o  o 


for  and  electric  file  incident  on  the 
thin-wire  structure. 

CR(I,NVL)  -  real  part  of  excitation  voltage  matrix  for  and 

electric  file  incident  on  the  thin-wire 
structure. 

lER  -  error  indicator  for  numerical  integration 
IMPLICIT:  NONE 

OTHER  MAJOR  VARIABLES: 

AR  -  length  of  test  monopole 

EPS  -  upper  limit  of  absolute  error 

FCTl  -  name  of  external  function  subprogram  which  computes 

the  value  of  the  tangential  component  of  the  incident 
NAVSPASUR  transmitter  dipole  electric  field  at  a 
selected  point  along  the  test  monopole  weighted  by  the 
first  term  of  the  test  dipole  current  distribution 
FCT2  -  name  of  external  function  subprogram  which  computes 
the  value  of  the  tangential  component  of  the  incident 
NAVSPASUR  transmitter  dipole  electric  field  at  a 
selected  point  along  the  test  monopole  weighted  by  the 
second  term  of  the  test  dipole  current  distribution 
NDIM  -  the  dimension  of  the  auxiliary  storage  array  AUX. 

NDIM-1  is  the  maximal  number  of  bisections  of  the 
integration  interval 

RO  -  length  of  test  monopole  projection  onto  x-y  plane 

XL  -  X  coordinate  of  lower  limit  of  line  integral 

XU  -  X  coordinate  of  upper  limit  of  line  integral 

YL  -  y  coordinate  of  lower  limit  of  line  integral 

YU  -  y  coordinate  of  upper  limit  of  line  integral 

YYII  -  imaginary  part  of  line  integral  of  FCTl  over  monopole 

YYIR  -  real  part  of  line  integral  of  FCTl  over  monopole 

YY2I  -  imaginary  part  of  line  integral  of  FCT2  over  monopole 

YY2R  -  real  part  of  line  integral  of  FCT2  over  monopole 

ZL  -  z  coordinate  of  lower  limit  of  line  integral 

ZU  -  z  coordinate  of  upper  limit  of  line  integral 

SYSTEM  STATE  CHANGES:  NONE 


MODIFIED: 


Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 

COMPLEX* 16  ETA, GAM 

DIMENSION  CR( 602 , 602 ) , Cl ( 602 , 602 ) 

DIMENSION  X(1),Y(1),Z(1), 11(1), 12(1), 13(1) 


Declare  functions. 
EXTERNAL  FCT1,FCT2 


Define  integration  parameters. 


EPS=:l.D-4 

NDIM=100 

Fill  excitation  voltage  matrix  with  value  for  each  test  dipole. 


c 

DO  10  1=1, N 
II=I 

IF(I.GT.Nl)  II=I+3*N1 
C 

C  Determine  length  and  projected  length  of  first  test  monopole. 

C 

J=I1(II) 

K=I2(II) 

RO=DSQRT((X(K)-X(J))**2+(y(K)-y(J))**2) 

AR=DSQRT(RO**2+(Z(K)-Z(J))**2) 

C 

C  Determine  integration  limits. 

C 

XL=X(J) 

XU=X(K) 

yL=y(j) 

yu-y(K) 

ZL=Z(J) 

ZU=Z(K) 

c 

C  Determine  real  part  of  excitation  voltage  value  for  first  monopole. 

C 

CALL  OATR(XL,XU,yL,yU,ZL,ZU,EPS,NDIH,ETA,GAM,WL,RO,AR,FCTl, 

2  yyiR,IER,0) 

IF(IER.NE.O.)  GO  TO  30 
C 

C  Determine  imaginary  part  of  excitation  voltage  value  for  first 
C  monopole. 

C 

CALL  QATR(XL,XU,yL,yU,ZL,ZU,EPS,NDIM,ETA,GAM,WL,RO,AR,FCTl, 

2  yyiI,IER,l) 

IF(IER.NE.O.)  GO  TO  30 
C 

C  Determine  length  and  projected  length  of  second  test  monopole. 

C 

J=I2(II) 

K=I3(II) 

RO=DSQRT((X(K)-X(J))**2+(y(K)-y(J))**2) 

AR=DSQRT(RO**2+(Z(K)-Z(J))**2) 

C 

C  Determine  integration  limits. 

C 

XL=X(J) 

XU=X(K) 

yL=y(J) 

yu=y(K) 

ZL=Z(J) 

ZU=Z(K) 

c 

C  Determine  real  part  of  excitation  voltage  value  for  second  monopole. 
C 

CALL  QATR(XL,XU,YL,yU,ZL,ZU,EPS,NDIM,ETA,GAM,WL,R0.AR,FCT2, 

2  yy2R,IER,0) 

IF(IER.NE.O.)  GO  TO  30 
C 

C  Determine  imaginary  part  of  excitation  voltage  value  for  second 
C  monopole. 

C 

CALL  QATR(XL,XU,yL,yU,ZL,ZU,EPS,NDIM,ETA,GAM,WL,R0,AR,FCT2, 


oooooooonoonoooooooooooooooooooooooonoooooo  ooo  ooo  non 


2  YY2I,IER,1) 

IFdER.NE.O.)  GO  TO  30 

Add  two  parts  together. 

CR(I,NVL)=YY1R+YY2R 
CI(I,NVL)=YY1I+YY2I 
10  CONTINUE 

Return  to  main  program 

.0  RETURN 
END 


k-k-klfklfk'k'kific-k-k-^ic-k-k-k-kififkli-k-ii-k-klileifklc-k-k-k-k-k-klfk-ie-klcific'kic-kifk-kltifk'k-kitiftfkifkiiifk-kiiic-k-k-k 


FUNCTION  FCT1(X,Y.Z,XL,YL,ZL,XU,YU.ZU,ETA,GAM,WL,R0,AR,IRI) 


kkkkic-kkitifk-kick-kirlfkkkieifkkkifkkifklfkkieitkiiirkk'k-k-klfkiekitififk-icifkifk'kk-kifkiUfkkkitlcklcit 
*  * 


*  FUNCTION  FCTl 

★ 


* 

★ 


A********************************************************************* 


AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  08-FEBRUARY-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7  7  70 : : SPACE : [ BERG . THINWIRE ] THINWIRE . FOR 

CALLING  ROUTINE;  MV7 7 70 :: SPACE: (BERG. THINWIRE] THINWIRE. FOR 

SUBROUTINES  CALLED:  NONE 

COMPILE  INSTRUCTIONS:  $  FORTRAN  THINWIRE 

LINK/LOAD  INSTRUCTIONS (TKB);  $  LINK  THINWIRE 
PARENT  PROGRAM:  THINWIRE. FOR 

PROGRAM  DESCRIPTION; 

This  function  computes  the  value  of  the  tangential  component  of 
the  incident  NAVSPASUR  transmitter  dipole  electric  field  at  a 
selected  point  along  the  test  monopole  weighted  by  the  first  term  of 
the  test  dipole  current  distribution. 

PROGRAM  ALGORITHM  (PSEUDOCODE); 

1.  Determine  complex  current  value  at  point  of  interest. 

2.  Determine  tangential  electric  field  componenent  at  point  of 
interest. 

3.  Obtain  product  of  tangential  electric  field  value  and  complex 
current  value. 

4.  Select  imaginary  or  real  part  of  product. 

5.  RETURN 
INPUTS  EXPLICIT: 


ooo  ooo  o  o  o  o  o  o  o  n  o  o  o  o  o  o  o  o  o  o  n  n  o  o  o  o  o  o  o  n  o  o  o  o  o  o  o  n  o  o  r>  o  o  o 


AR  -  length  of  test  monopole 

ETA  -  intrinsic  impedance  of  ambient  medium  (mks  units) 

GAM  -  complex  propagation  constant  of  ambient  medium  (mks 

units) 

IRI  -  indicator  for  real  or  imaginary  part  of  function  value 
0  =>  real  part 
1  =>  imaginary  part 

RO  -  length  of  test  monopole  projection  onto  x-y  plane 

WL  -  wavelength  (meters) 

X  -  X  coordinate  at  selected  point  along  monopole 

XL  -  X  coordinate  of  lover  limit  of  test  monopole 

XU  -  X  coordinate  of  upper  limit  of  test  monopole 

Y  -  y  coordinate  at  selected  point  along  monopole 

YL  -  y  coordinate  of  lower  limit  of  test  monopole 

YU  -  y  coordinate  of  upper  limit  of  test  monopole 

Z  -  z  coordinate  at  selected  point  along  monopole 

ZL  -  z  coordinate  of  lower  limit  of  test  monopole 

ZU  -  z  coordinate  of  upper  limit  of  test  monopole 

IMPLICIT:  NONE 

OUTPUTS  EXPLICIT: 

FCTl  -  the  value  of  the  tangential  component  of  the  incident 
NAVSPASUR  transmitter  dipole  electric  field  at  a 
selected  point  along  the  test  monopole  weighted  by  the 
first  term  of  the  test  dipole  current  distribution 

IMPLICIT:  NONE 

OTHER  MAJOR  VARIABLES: 

FAC  -  test  dipole  current  value 

CTF  -  complex  value  of  tangential  component  of  electric 
field  from  NAVSPASUR  transmitter  element 

SYSTEM  STATE  CHANGES:  NONE 


MODIFIED: 

Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 

COMPLEX* 16  CDIM 

COMPLEX* 16  ETA , GAM , ZZ2 , EGD , SGDT , SGDB , CEXPRP , CEXPR , CFR , CFT , CFP , 
2CR,CT,CP,CX,CY,CZ,CTF,FAC 

Define  constants. 

DATA  PI/3.141592653589793/ 

TP=2*PI 

Calculate  complex  current  value  at  selected  point. 

SPHI=(YU-YL)/RO 

CPHI=(XU-XL)/RO 

STHT=R0/AR 

CTHT=(ZU-ZL)/AR 

EL=DSQRT((X-XL)**2+(Y-YL)**2+(Z-ZL)**2) 

EGD=CDEXP(GAM*EL) 


ooooooo  rjoo 


SGDT=(EGD-l./EGD)/2. 

EGD»COEXP(GAM*AR) 

SGDB=(EGD-l./EGD)/2. 

FAC*SGDT/SGDB 

Calculate  incident  tangential  electric  field  at  selected  point. 

ZZ2=ETA/2. 

CR=DCMPLX(0. ,0.) 

CT=DCMPLX(0.,0.) 

CP=DCMPLX(0.,0.) 

DO  275  M=l,2 

FM=(-1.)**M 

H=FM*0.25*WL 

THET0=PI/180 . *(90 . -FM*55 . ) 

CT0=DC0S(THET0) 

ST0=DSIN(THET0) 

RH=DSQRT ( ( X+H*ST0 ) **2 +Y*Y+ ( Z+H*CT0 ) **2 ) 

CDIM=DCMPLX(0.,1.) 

PFD=DSQRT(X*X+Y*Y) 

RFD=DSQRT ( PFD*PFD+Z*Z ) 

CST=Z/RFD 

SNT=PFD/RFD 

CSP=1,0 

SNP=0.0 

IF(PFD.NE.O. )CSP=X/PFD 
IF(PFD.NE.O. )SNP=Y/PFD 
CEXPRP=CDEXP ( -GAM*RH ) /RH 
CEXPR=CDEXP ( -GAM*RFD ) 

CSTP»CT0*CST+ST0*SNT*CSP 
SNTP=DSQRT ( 1 -CSTP*CSTP ) 

TNTP=SNTP/CSTP 

THFC= ( CT0*SNT-ST0*CST*CSP ) / SNTP 
PHFC=(STO*SNP)/SNTP 

CFR=(H/RFD*CEXPRP-FM*CDIM*CEXPR/GAM/RFD/RFD)*ZZ2/TP*CDIM 
CFT= ( CEXPRP* ( 1 . / SNTP+H/RFD/TNTP) +CEXPR/RFD/TNTP*FM*CDIM ) *THFC 
2*ZZ2/TP*CDIM 

CFP= (CEXPRP* ( 1 . /SNTP+H/RFD/TNTP ) +CEXPR/RFD/TNTP*FM*CDIM ) *PHFC 
2*ZZ2/TP*CDIM 
CR=CR+CFR 
CT=CT+CFT 
CP=CP+CFP 
275  CONTINUE 

CX=CR*SNT*CSP+CT*CST*CSP-CP*SNP 

CY=CR*SNT*SNP+CT*CST*SNP+CP*CSP 

CZ=CR*CST-CT*SNT 

CTF=CX*STHT*CPHI+CY*STHT*SPHI+CZ*CTHT 

Choose  real  or  imaginary  part  of  product  of  complex  curient  and 
tangential  electric  field. 

FCT 1 = DREAL ( FAC*CTF ) 

IF(IRI.NE.O)  FCT1=DIMAG(FAC*CTF) 


Return  to  subroutine. 

RETURN 
END 
C 


FUNCTION  FCT2(X,Y,Z,XL,yL,ZL,XU,YU,ZU,ETA,GAM,VL,RO,AF,IRI) 

C 

C  ********************************************************************** 

c  *  * 

C  *  FUNCTION  FCT2  * 

C  *  * 

C  AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

C  DATE:  08-FEBRUARY-1988 

C  LANGUAGE:  VAX  FORTRAN 

C  FILE:  MV7770:: SPACE: [BERG. THINWIRE]THINWIRE. FOR 


CALLING  ROUTINE: 


MV7  7  70 : : SPACE : ( BERG . THINWIRE ] THINVIRE . FOR 


SUBROUTINES  CALLED: 


COMPILE  INSTRUCTIONS: 


$  FORTRAN  THINWIRE 


LINK/LOAD  INSTRUCTIONS(TKB):  $  LINK  THINVIRE 


PARENT  PROGRAM: 


THINWIRE. FOR 


PROGRAM  DESCRIPTION: 

This  function  computes  the  value  of  the  tangential  component  of 
the  incident  NAVSPASUR  transmitter  dipole  electric  field  at  a 
selected  point  along  the  test  monopole  weighted  by  the  second  term  of 
the  test  dipole  current  distribution. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  Determine  complex  current  value  at  point  of  interest. 

2.  Determine  tangential  electric  field  componenent  at  point  of 
interest. 

3.  Obtain  product  of  tangential  electric  field  value  and  complex 
current  value. 

A.  Select  imaginary  or  real  part  of  product. 

5.  RETURN 


INPUTS  EXPLICIT: 

AR  -  length  of  test  monopole 

ETA  -  intrinsic  impedance  of  ambient  medium  (mks  units) 

GAM  -  complex  propagation  constant  of  ambient  medium  (mks 

units) 

IRI  -  indicator  for  real  or  imaginary  part  of  function  value 
0  =>  real  part 
1  =>  imaginary  part 

RO  -  length  of  test  monopole  projection  onto  x-y  plane 

WL  -  wavelength  (meters) 

X  -  X  coordinate  at  selected  point  along  monopole 

XL  -  X  coordinate  of  lower  limit  of  test  monopole 

XU  -  X  coordinate  of  upper  limit  of  test  monopole 

Y  -  y  coordinate  at  selected  point  along  monopole 

YL  -  y  coordinate  of  lower  limit  of  test  monopole 

YU  -  y  coordinate  of  upper  limit  of  test  monopole 

Z  -  z  coordinate  at  selected  point  along  monopole 


ooo  ooo  ooo  o o o o o o o o o o o o o o o o o o o o o n o o o o 


ZL  -  z  coordinate  of  lower  limit  of  test  monopole 

ZU  -  z  coordinate  of  upper  limit  of  test  monopole 

IMPLICIT;  NONE 

OUTPUTS  EXPLICIT: 

FCT2  -  the  value  of  the  tangential  component  of  the  incident 
NAVSPASUR  transmitter  dipole  electric  field  at  a 
selected  point  along  the  test  monopole  weighted  by  the 
second  term  of  the  test  dipole  current  distribution 

IMPLICIT;  NONE 

OTHER  MAJOR  VARIABLES: 

FAC  -  test  dipole  current  value 

CTF  -  complex  value  of  tangential  component  of  electric 
field  from  NAVSPASUR  transmitter  element 

SYSTEM  STATE  CHANGES;  NONE 


MODIFIED: 


Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 

COMPLEX* 16  CDIM 

C0MPLEX*16  ETA , GAM , ZZ2 , EGD , SGDT , SGDB , CEXPRP , CEXPR , CFR , CFT , CFP , 
2CR,CT,CP,CX,Cy,CZ,CTF,FAC 

Define  constants. 

DATA  PI/3.141592653589793/ 

TP=2*PI 

Calculate  complex  current  value  at  selected  point. 

SPHI=(YU-YL)/RO 

CPHI=(XU-XL)/RO 

STHT=R0/AR 

CTHT=(ZU-ZL)/AR 

EL=DSQRT((XU-X)**2+(YU-Y)**2+(ZU-Z)**2) 

EGD=CDEXP(GAM*EL) 

SGDT=(EGD-l./EGD)/2. 

EGD=CDEXP(GAM*AR) 

SGDB=(EGD-l./EGD)/2. 

FAC=SGDT/SGDB 


Calculate  incident  tangential  electric  field  at  selected  point. 

ZZ2=ETA/2. 

CR=DCMPLX(0. ,0. ) 

CT=DCMPLX(0. ,0.) 

CP=DCMPLX(0. ,0. ) 

DO  275  M=l,2 

FM=(-1.)**M 

H=FM*0.25*WL 

THET0=PI/180.*(90.-FM*55. ) 

CT0=DC0S(THET0) 


STO=DSIN(THETO) 

RH=DSQRT((X+H*STO)**2+Y*Y+(Z+H*CTO)**2) 

CDIM=DCMPLX(0.,1.) 

PFD»DSQRT(X*X+Y*Y) 

RFD=DSQRT ( PFD*PFD+Z*Z ) 

CST=Z/RFD 

SNT=PFD/RFD 

CSP=1.0 

SNP=0.0 

IF(PFD.NE.O. )CSP=X/PFD 
IF(PFD.NE.O. )SNP=Y/PFD 
CEXPRP=CDEXP ( -GAM*RH ) / RH 
CEXPR=CDEXP( -GAM*RFD ) 

CSTP=CTO*CST+STO*SNT*CSP 
SNTP=DSQRT ( 1 -CSTP*CSTP ) 

TNTP=SNTP/CSTP 

THFC= ( CTO*SNT-STO*CST*CSP ) / SNTP 
PHFC= ( STO*SNP ) /SNTP 

CFR=(H/RFD*CEXPRP-FM*CDIM*CEXPR/GAM/RFD/RFD)*ZZ2/TP*CDIM 
CFT= ( CEXPRP* ( 1 . / SNTP+H/RFD/TNTP ) +CEXPR/RFD/TNTP*FM*CDIM ) *THFC 
2*ZZ2/TP*CDIM 

CFP=(CEXPRP*(1 . / SNTP+H/RFD/TNTP )+CEXPR/RFD/TNTP*FM*CDIM)*PHFC 
2*ZZ2/TP*CDIM 
CR=CR+CFR 
CT=CT+CFT 
CP=CP+CFP 
275  CONTINUE 

CX=CR*SNT*CSP+CT*CST*CSP-CP*SNP 

CY=CR*SNT*SNP+CT*CST*SNP+CP*CSP 

CZ=CR*CST-CT*SNT 

CTF=CX*STHT*CPHI+CY*STHT*SPHI+CZ*CTHT 

C 

C  Choose  real  or  imaginary  part  of  product  of  complex  current  and 
C  tangential  electric  field. 

C 

FCT2 =DREAL( FAC*CTF ) 

IF(IRI.NE.O)  FCT2=DIMAG(FAC*CTF) 

C 

C  Return  to  subroutine. 

C 

RETURN 

END 

C 

c+ 

SUBROUTINE  QATR ( XL , XU , YL , YU , ZL , ZU , EPS , NDIM , ETA , GAM , VL , RO , AR , 
2FCT,YY,IER,IRI) 

C 

Q  it'k'kicitificieiciticicif'k’k-k'k'k’k'k'k'k'k'k'k'k'kit'kit'k'k'k'k'k'k'k-k'k-k'k'k'k'k'k'k'k-k'k'k'kie'k'k'k'k'k'kic'k-k'k-k-k'k-kic-k'k'k 

c  *  * 

C  *  SUBROUTINE  QATR  * 

C  *  * 


AUTHOR; 


DATE; 

LANGUAGE; 

FILE; 


DIGITAL  EQUIPMENT  CORPORATION 
SOURCE;  SUBROUTINE  QUATR 

DEC  SCIENTIFIC  SUBROUTINES  PACKAGE 
JUNE  1980 
VAX  FORTRAN 

MV7770; ;  SPACE; (BERG. THINWIRE]THINVIRE. FOR 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CALLING  ROUTINE:  MV7770: :SPACE: [BERG.THINVIREJTHINVIRE.FOR 

SUBROUTINES  CALLED:  NONE 

COMPILE  INSTRUCTIONS:  $  FORTRAN  THINWIRE 

LINK/LOAD  INSTRUCTIONS(TKB):  $  LINK  TRINVIRE 
PARENT  PROGRAM:  THINWIRE. FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  computes  an  approximation  for  a  function  f(l) 
integrated  along  1  from  LL  to  LU,  where  1  is  a  the  linear  coordinate 
along  an  arbitrary  line  in  space. 

The  evaluation  of  the  integral  is  done  by  means  of  trapezoidal 
rule  in  connection  with  Romberg's  principle.  On  return  the 
calculated  value  is  the  best  possible  approximation  of  the  intergral 
value  and  vector  AUX,  the  upward  diagonal  of  Romberg  scheme. 
Components  AUX(I)  (1=1,2, ... ,IEND,  with  lEND  less  than  or  equal  to 
NDIM)  become  approximations  to  integral  value  with  decreasing 
accuracy  by  multiplication  with  (LL-LU).  For  reference,  see 

(1)  FILIPPI,  DAS  VERFAHREN  VON  ROMBERG-STIEFEL-BAUER  ALS 
SPEZIALFALL  DES  ALLGEMEINEN  PRINZIPS  VON  RICHARDSON, 
MATHEMATIK-TECHNIK-WIRTSCHAFT,  VOL. 11,  ISS.2  (1964), 

PP. 49-54. 

(2)  BAUER,  ALGORITHM  60,  CACM,  VOL. 4,  ISS.6  (1961),  PP.255. 
PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  Evaluate  integral  using  trapezoidal  rule  in  connection  to 
Romberg's  principle. 

2 .  RETURN 

INPUTS  EXPLICIT: 

AR  -  length  of  test  monopole 

EPS  -  upper  limit  of  absolute  error 

ETA  -  intrinsic  impedance  of  ambient  medium  (mks  units) 

FCT  -  name  of  the  external  function  subprogram  used 
(requires  an  external  statement) 

GAM  -  complex  propagation  constant  of  ambient  medium  (mks 
units) 

IRI  -  indicator  for  real  or  imaginary  part  of  function  value 
0  =>  real  part 
1  =>  imaginary  part 

NDIM  -  the  dimension  of  the  auxiliary  storage  array  AUX 
NDIM-1  is  the  maximal  number  of  bisections  of  the 
integration  interval 

RO  -  length  of  test  monopole  projection  onto  x-y  plane 

WL  -  wavelength  (meters) 

XL  -  X  coordinate  of  lower  limit  of  line  integral 

XU  -  X  coordinate  of  upper  limit  of  line  integral 

YL  -  y  coordinate  of  lower  limit  of  line  integral 

YU  -  y  coordinate  of  upper  limit  of  line  integral 

ZL  -  z  coordinate  of  lower  limit  of  line  integral 

ZU  -  z  coordinate  of  upper  limit  of  line  integral 


IMPLICIT:  NONE 


ooo  ooo  nooofioonoooooooooooooooooooooo 


OUTPUTS  EXPLICIT: 

lER  -  resulting  error  parameter 

0  =>  It  was  possible  to  reach  the  required  accuracy; 
no  error. 

1  =>  It  was  impossible  to  reach  the  required  accuracy 

because  of  rounding  errors. 

2  s>  It  was  impossible  to  check  accuracy  because  NDIM 

is  less  than  5,  of  the  required  accuracy  could 
not  be  reached  within  NDIM-1  steps;  NDIM  should 
be  increased. 

YY  -  resulting  approximation  for  the  integral  value 

IMPLICIT:  NONE 

OTHER  MAJOR  VARIABLES: 

AUX  -  an  auxiliary  storage  array  with  dimension  NDIM 
SYSTEM  STATE  CHANGES:  NONE 


MODIFIED: 

Dr.  Steven  L.  BERG,  2/08/88 

-  Adapted  to  THINVIRE's  requirements. 

Dr.  Steven  L.  BERG,  11/30/88 

-  Added  header. 

Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  AUX(IOO) 

COMPLEX* 16  ETA, GAM 

Preparations  of  Romberg-loop. 

AUX(1)=.5*(FCT(XL,YL,ZL,XL,YL,ZL,XU,YU,ZU,ETA,GAM,UL,R0,AR, 

2IRI)+FCT(XU,YU,ZU,XL,YL,ZL,XU,YU,ZU,ETA,GAM,WL,R0,AR,IRI)) 

HX=XU-XL 

HY=YU-YL 

HZ=ZU-ZL 

H=:AR 

IF(NDIM-1)8,8,1 

1  IF(H)2,10,2 

NDIM  is  greater  than  1  and  H  is  not  equal  to  0. 

2  HHX=HX 
HHY=HY 
HHZ=HZ 

E=EPS/DABS(H) 

DELT2=0. 

P=l. 

JJ=1 

DO  7  1=2, NDIM 
YY=AUX(1) 

DELT1=DELT2 

HDX=HHX 

HDY=HHY 

HDZ=HHZ 


ooo  o n o  oooooo 


HHY..5*HHY 

HHZ«.5*HHZ 

P=.5*P 

X^XL+HHX 

Y=:YL+HHY 

Z^ZL-fHHZ 

SM=0. 

DO  3  J=1,JJ 

SM=SM+FCT(X,Y,Z,XL,YL,ZL,XU,YU,ZU,ETA,GAM,WL,RO,AR,IRI) 
X=X>HDX 
Y=Y+HDY 
3  Z=Z+HDZ 

AUX(I)=.5*AUX(I-1)+P*SM 

A  new  approximation  of  integral  value  is  computed  by  means  of 
trapezoidal  rule. 

Start  of  Romberg's  extrapolation  method. 


Q=l. 

JI=I-1 
DO  4  J=1,JI 
II=I-J 
0=0+0 
0=0+0 

4  AUX(II)=AUX(II+l)+(AUX(II+l)-AUX(II))/(0-l.) 

End  of  Romberg-step. 

DELT2=DABS(YY-AUX(1)) 

IF(I-8)7,5,5 

5  IF(DELT2-E)10,10,6 

6  IF(DELT2-DELT1)7,11,11 

7  JJ=JJ+JJ 

8  IER=2 

9  YY=H*AUX(1) 

RETURN 

10  IER=0 
GO  TO  9 

11  IER=1 
YY=H*YY 

Return  to  subroutine. 


RETURN 

END 

C 

C+ 


SUBROUTINE  GROUT (N,NVL,CR, Cl ,LND) 

C 

C  Jr*  ★*★★★★★***★ 

C  *  * 

C  *  SUBROUTINE  GROUT  * 

C  *  * 

Q  ********************************************************************** 

c 

C  AUTHOR:  G.  A.  THIELE,  OHIO  STATE  UNIVERSITY  ELECTROSCIENCE  LAB 

C  REFERENCE  :  G.  A.  Thiele,  WIRE  GRID  BODY  PROGRAM  from 


nooooooooooooooooooooorjooooooooooooonoooooooooooooooooooooocj 


"WIRE  ANTENNAS",  Chapter  2  in  Computer 
Techniques  for  Electromagnetics,  Pergamon 
Press,  Nev  York,  1973 

DATE:  1973 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: : SPACE: [ BERG. THINWIREJTHINWIRE. FOR 

CALLING  ROUTINE:  MV7 7 70 :; SPACE: I  BERG. THINWIREJTHINWIRE. FOR 

SUBROUTINES  CALLED:  NONE 

COMPILE  INSTRUCTIONS:  $  FORTRAN  THINWIRE 

LINK/LOAD  INSTRUCTIONS ( TKB ) :  $  LINK  THINWIRE 
PARENT  PROGRAM:  THINWIRE. FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  solves  for  an  unknown  complex  column  matrix  [B], 
from  the  matrix  equation  [A|[B]  =  [C],  where  [A]  is  a  known  complex 
square  matrix  and  [C]  is  a  known  complex  column  matrix.  [A],  [B], 
and  [C]  are  each  stored  in  the  form  of  two  real  matrices,  one 
containing  the  real  part  of  the  matrix  and  one  containing  the 
imaginary  part. 

When  the  logic  variable  LND  equals  FALSE  the  subroutine  uses  the 
Crout  algorithm  to  decompose  [A]  into  [DJ.  [D]  is  a  square  matrix  of 
of  the  same  size  as  [A],  and  replaces  [A]  so  no  additional  memory  is 
needed. 

When  LND  equals  TRUE  [D]  is  used  to  solve  for  [BJ.  [B]  replaces 
[C],  again  to  save  storage  space. 

A  good  reference  for  this  method  of  solving  matrix  equations  is 
found  in  "Numerical  Recipes  :  The  Art  of  Scientific  Computing",  W.H. 
Press,  B.P.  Flannery,  S.A.  Teukolsky,  and  W.T.  Vetterling,  Cambridge 
University  Press,  New  York,  1986. 

In  terms  of  this  program,  two  large  matrices,  one  containing  the 
real  parts  and  one  containing  the  imaginary  parts,  of  dimension 
N  X  N+1  contain  the  square  mutual  impedance  matrix  for  test  dipoles 
and  the  voltage  excitation  column  matrix.  The  values  of  this  matrix 
are  replaced  by  the  decomposed  mutual  impedance  matrix  and  the 
complex  current  column  matrix. 


PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  IF 

LND  equals  FALSE 
THEN 

Decompose  square  matrix  using  Grouts  algorithm. 

ELSE 

Solve  for  column  matrix  using  decomposed  matrix. 

ENDIF 

2 .  RETURN 
INPUTS  EXPLICIT: 


ooo  oooonooorsooooooooooooooooooooooo 


CI(I,J) 

CR(I,J) 

CI(I,NVL) 

CR(I,NVL) 

LND 

N 

NVL 


-  imaginary  values  of  mutual  impedance  matrix  for  test 
dipoles 

-  real  values  of  mutual  impedance  matrix  for  test 
dipoles 

-  Imaginary  values  of  excitation  voltage  column  matrix 

-  real  values  of  excitation  voltage  column  matrix 

-  logical  variable 

-  total  #  of  test  dipole  modes 

-  column  number  for  excitation  voltage  column  matrix 


IMPLICIT:  NONE 


OUTPUTS  EXPLICIT: 

CI(I,J)  -  imaginary  values  of  decomposed  mutual  impedance 
matrix  for  test  dipoles 

CR(I,J)  -  real  values  of  decomposed  mutual  impedance  matrix 
for  test  dipoles 

CI(I,NVL)  -  imaginary  values  of  complex  current  column  matrix 
CR(I,NVL)  -  real  values  of  complex  current  column  matrix 

IMPLICIT:  NONE 

OTHER  MAJOR  VARIABLES: 

See  INPUTS  and  OUTPUTS. 

SYSTEM  STATE  CHANGES:  NONE 


MODIFIED: 

S.  L.  BERG,  12/05/88  -  Added  documentation. 

IMPLICIT  REAL*8<A-H,0-Z) 

DIMENSION  CR( 602 , 602 ) , Cl ( 602 , 602 ) 


Decompose  square  matrix  using  Crout  algorithm. 

IF(LND)  GO  TO  630 
DO  118  L=1,N 
LLL=L-1 
DO  118  I=L,N 
11=1+1 

IF(LLL)  105,106,105 

105  DO  117  K=1,LLL 
CP1=CR(I,K)*CR(K,L)-CI(I,K)*CI(K,L) 
CR(I,L)=CR(I,L)-CP1 
CP1=CI(I,K)*CR(K,L)+CR(I,K)*CI(K,L) 
CI(I,L)=CI(I,L)-CP1 
CP1=CR(L,K)*CR(K,II)-CI(L,K)*CI(K,II) 
CR(L,II)=CR(L,II)-CP1 
CP1=CI(L,K)*CR(K,II)+CR(L,K)*CI(K,II) 

117  CI(L,II)=CI(L,II)-CP1 

106  CRP=CR(L,II) 

CLL=CR(L,L)*CR(L,L)+CI(L,L)*CI(L,L) 

CR(L,II)=CRP*CR(L,L)/CLL+CI(L,II)*CI(L,L)/CLL 

118  CI(L,II)=CI(L,II)*CR(L,L)/CLL-CRP*CI(L,L)/CLL 
DO  621  1=1, N 

CR(I,NVL)=0. 

621  CI(I,NVL)=0. 

LND=.TRUE. 


RETURN 

630  CONTINUE 
C 

C  Solve  for  column  matrix. 

C 

DO  120  L=1,N 
LLL=L-1 

IF(LLL)  205,206,205 

205  DO  119  K=1,LLL 

CR(L,NVL)=CR(L,NVL)-CR(L,K)*CR(K,NVL)+CI(L,K>*CI(K,NVL) 

119  CI(L,NVL)=CI(L,NVL)-CI(L,K)*CR(K,NVL)-CR(L,K)*CI(K,NVL) 

206  CRP=CR(L,NVL) 

CLL=CR(L,L)*CR(L,L)+CI(L,L)*CI(L,L) 

CR(L,NVL)=(CRP*CR(L,L)+CI(L,NVL)*CI(L,L))/CLL 

120  CI(L,NVL)=(CI(L,NVL)*CR(L,L)-CRP*CI(L,L))/CLL 
DO  122  L=2,N 

I=NVL-L 

11=1+1 

DO  122  K=II,N 

CR(I,NVL)=CR(I,NVL)-CR(I,K)*CR(K,NVL)+CI(I,K)*CI(K,NVL) 

122  CI(I,NVL)=CI(I,NVL)-CI(I,K)*CR(K,NVL)-CR(I,K)*CI(K,NVL) 

RETURN 

END 

C 

Qieitifificicie'kicif'kitifieieiciciticicieic-kieiciciricicificieiririticiticititicicie'k'k'k’kic'k'k'k'k'kic'k’k'kit'kic'k'k’k'k'k-k'k-k'k'k'k 

c+ 

SUBROUTINE  GSCRD(NW,NSW,WRL,SPC,ZHGT,INS,NM,NP,IA,IB,X,Y,Z) 

C 

C  *  * 

C  *  SUBROUTINE  GSCRD  * 

C  *  * 

c 

C  AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

C  DATE:  08 -FEBRUARY- 1988 

C  LANGUAGE:  VAX  FORTRAN 

C  FILE:  MV7770::SPACE: [BERG. THINVIREJTHINVIRE. FOR 

C 

C  CALLING  ROUTINE:  MV7770:  .-SPACE:  (BERG. THINVIREJTHINVIRE. FOR 

C 

C  SUBROUTINES  CALLED:  NONE 

C 

C  COMPILE  INSTRUCTIONS:  $  FORTRAN  THINVIRE 

C 

C  LINK/LOAD  INSTRUCTIONS(TKB) :  $  LINK  THINVIRE 
C 

C  PARENT  PROGRAM:  THINVIRE. FOR 

C 

C  PROGP^M  DESCRIPTION: 

C  This  subroutine  determines  the  endpoints  associated  with 

C  segments  and  their  coordinates  for  a  NAVSPASUR  transmitter  ground 
C  screen. 

C  The  position  of  the  segment  endpoints  with  respect  to  the  ground 

C  screen  are  determined  by  the  parameters  of  the  ground  screen  as  input 
C  from  the  main  program.  The  east-west  (E-V)  segment  length  is  fixed 
C  by  the  number  of  segments  per  E-V  wire  and  length  of  the  E-V  wires. 

C  The  north-south  (N-S)  segment  length  is  determined  by  the  spacing  of 
C  the  E-V  wires.  No  provisions  for  more  than  one  N-S  segment  between 
C  the  E-V  vires  has  been  made,  due  to  the  short  distance  between  E-V 


C  vires  required  for  practical  ground  screens. 

C  The  endpoints  are  numbered  starting  with  the  endpoint  with  the 

C  most  negative  x  value  on  the  first  wire  in  the  positive  y  direction 
C  and  progressing  along  the  wire  in  the  positive  x  direction.  The 
C  endpoints  on  the  next  wire  in  the  y  direction  follow  in  the  same 
C  manner,  until  all  the  endpoints  with  positive  y  values  are  numbered. 

C  The  endpoints  with  negative  y  values  are  then  numbered,  starting  with 
C  the  most  negative  x  value  on  the  first  wire  in  the  negative  y 
C  direction  and  continuing  along  the  wire.  The  rest  are  numbered  in 
C  the  same  manner  for  each  succesive  wire  in  the  negative  y  direction. 

C 

C  PROGRAM  ALGORITHM  (PSEUDOCODE): 

C 

C  1.  DO 

C  for  each  E-W  segment 

C 

C  Assign  numbers  to  endpoints. 

C 

C  ENDDO 

C 

C  2.  DO 

C  for  each  endpoint. 

C 

C  Assign  coordinates. 

C 

C  ENDDO 

C 

C  3.  DO 

C 

C  for  each  N-S  wire 

C 

C  Assign  numbers  to  endpoints. 

C 

C  ENDDO 

C 

C  4.  RETURN 

C 

C  INPUTS  EXPLICIT; 

C  NW  -  #  of  E-W  ground  wires 

C  NSW  -  #  of  segments/E-W  wire 

C  WRL  -  E-W  wire  length 

C  SPC  -  spacing  between  E-W  wires 

C  ZHGT  -  height  of  element  vertex  above  ground  screen 

C  INS  -  N-S  wire  indicator 

C  (0  :  no  N-S  wires;  1  :  13  N-S  wires) 

C 

C  IMPLICIT:  NONE 

C 

C  OUTPUTS  EXPLICIT: 

C  NM  -  number  of  segments 

C  NP  -  number  of  points  (segment  endpoints) 

C  IA(J)  -  1st  endpoint  of  segment  J 

C  IB(J)  -  2nd  endpoint  of  segment  J 

C  X(I)  -  X  coordinate  of  endpoint  I  (meters) 

C  Y(I)  -  y  coordinate  of  endpoint  I  (meters) 

C  Z(I)  -  z  coordinate  of  endpoint  I  (meters) 

C 

C  IMPLICIT:  NONE 

C 

C  OTHER  MAJOR  VARIABLES; 


non  ooooo  oooo  ooo  o o o o o o o o o o o o o 


I  -  endpoint  number 

J  -  segment  number 

SGL  -  segment  length 

SYSTEM  STATE  CHANGES:  NONE 


MODIFIED: 


Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  IA(1),IB(1),X(1),Y(1),Z(1) 

NV2=NW/2 

RNW1=NV2 

RNV=NV 

RNW2=RNV/2. 

TOL2=WRL/2. 

NPV=NStf-t-l 

NM=NW*NSW 

NP=NW*NPW 

SGL=WRL/DFLOTJ(NSW) 

M=-l 


Set  segment  number  to  zero. 


J=0 

Match  E-W  segment  numbers  with  endpoint  numbers.  Each  E-W  wire  has 
NSV  segments  and  NPV  endpoints. 

DO  100  11=1, NW 
K=M+2 

DO  100  12=1, NSW 
J=J+1 
M=K+I2-1 
IA(J)=M 
IB(J)=M+1 
100  CONTINUE 

Determine  if  the  number  of  wires  is  odd  or  even  for  proper 
y  coordinates  of  endpoints.  If  NS  is  odd,  the  center  wire  is  placed 
directly  under  element.  Otherwise  the  wires  straddle  the  elements. 


Y0=0. 

1=0 

IHl=(NW+l)/2 

IF(RNW2.EQ.RNW1)  IHl=NW/2 
IF(RNW2.EQ.RNV1)  Y0=SPC/2. 

IH2=IH1*NPW 

Define  segment  endpoints  by  their  coordinates. 

DO  200  11=1, NW 
DO  200  12=1, NPW 
1=1+1 

Z(I)=-ZHGT 

Y(I)=Y0+DFL0TJ(I1-1)*SPC 


ooo  ooo  noon  ooo  o o o 


IF( I . GT . IH2 )  Y( I ) =Y0-DFL0TJ ( I 1-IHl )*SPC 
X ( I ) =-WRL2 + ( SGL*DFLOT J ( I 2 - 1 ) ) 

200  CONTINUE 

Return  to  main  program  if  no  N-S  vires  exist. 
IF  (INS.EQ.O)  GO  TO  900 


Define  constants. 

NMA.NM 

NNB=<NM-fNPV 

K=0 


The  N-S  vires  are  assumed  to  intersect  the  E-W  vires  at  all  endpoint 
positions. 

DO  300  L=1,NPW 
J=J+1 
K=K+1 
IA(J)=K 
IB(J)=NP/2+K 
300  CONTINUE 

K=0 

NMC=NMB+ ( NW2 - 1 ) *NPW 

DO  400  L1=1,NW2-1 
DO  400  L2=1,NPW 
J=J+1 
K=K+1 

IA<J)=NPW+K 
IB(J)=K 
400  CONTINUE 

K=0 

DO  500  L1=1,NV2-1 
DO  500  L2=1,NPW 
J=J+1 
K=K+1 

IA(J)=NP/2+K 
IB(J)=NP/2+NPW+K 
500  CONTINUE 

Determine  number  of  segments. 

NH*J 


Return  to  main  program. 

900  RETURN 
END 
C 

C+ 

SUBROUTINE  S0RT4(IA,IB,I1,I2,I3,JA, JB,MD,ND,NM,NP,N.M1,N2,MAX,MIN, 
2ICJ,INS,INM,NW,NSW) 

C 

C  ********************************************************************** 

c  *  * 

C  *  SUBROUTINE  S0RT4  * 

C  *  * 

C  ********************************************************************** 


ooooooooooooonooooonoooonooonooonnnoorjorjoooooooooooooooooooo 


AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  08-FEBRUARY-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: : SPACE: [ BERG. THINWIREJTHINWIRE. FOR 

CALLING  ROUTINE:  MV7770:  .-SPACE:  [BERG. THINVIREJTHINWIRE. FOR 

SUBROUTINES  CALLED:  NONE 

COMPILE  INSTRUCTIONS:  $  FORTRAN  THINWIRE 

LINK/LOAD  INSTRUCTIONS (TKB):  $  LINK  THINWIRE 
PARENT  PROGRAM:  THINWIRE. FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  creates  a  set  o£  test  dipole  modes  for  a 
rectangular  wire-grid  screen,  taking  advantage  of  its  4-fold 
symmetry.  A  cartesian  coordinate  system  is  used,  with  the  positive 
X,  y,  and  z  axes  corresponding  to  directions  west,  south,  and  up, 
respectively. 

The  number  of  segments  chosen  per  east-west  wire  can  be  odd  or 
even,  if  no  north-south  wires  are  used.  However,  an  odd  number 
allows  for  a  totally  four-fold  symmetric  set  of  test  dipoles.  An 
even  number  requires  some  test  dipoles  with  only  two-fold  symmetry, 
thereby  reducing  the  efficency  of  the  program. 

If  north-south  wires  are  included,  the  subroutine  is  set  for 
only  an  even  number  of  east-west  segmnents.  The  test  dipoles  are 
fully  four-fold  symmetric. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  IF 

#  of  segments  per  wire  is  even 
THEN 

IF 

north-south  wires  exist 
THEN 

for  each  quadrant. 

Determine  test  dipoles. 

Determine  corresponding 
segments. 

ELSE 

for  each  quadrant. 

Determine  4-fold  svmmetric  test 
dipoles. 

Determine  corresponding 
segments. 


for  each  half  (south  and  north). 


C  Determine  2-fold  symmetric  test 

C  dipoles. 

C 

C  Determine  corresponding 

C  segments. 

C  ENDIF 

C 

C  ELSE 

C  for  each  quadrant 

C 

C  Determine  test  dipoles. 

C 

C  Determine  corresponding  segments. 

C 

C  ENDIF 

C 

C  2.  RETURN 

C 

C 

C  INPUTS  EXPLICIT: 


c 

IA(J) 

- 

1st  endpoint  of  segment  J 

c 

IB(J) 

- 

2nd  endpoint  of  segment  J 

c 

ICJ 

- 

maximum  allowed  number  of  test  dipole  modes 

c 

INM 

- 

maximum  allowed  number  of  segments 

c 

INS 

- 

N-S  wire  indicator 

c 

(0  :  no  N-S  wires;  1  :  13  N-S  wires) 

c 

NM 

- 

number  of  segments 

c 

NP 

- 

number  of  points  (segment  endpoints) 

c 

NSV 

- 

#  of  segments/E-W  wire 

c 

r 

NV 

- 

#  of  E-W  ground  wires 

V 

c 

c 

IMPLICIT: 

c 

OUTPUTS  EXPLICIT: 

c 

11(1) 

- 

1st  endpoint  of  test  dipole  I 

c 

12(1) 

- 

terminal  endpoint  of  test  dipole  I 

c 

13(1) 

- 

2nd  endpoint  of  test  dipole  I 

c 

JA(I) 

- 

1st  segment  of  test  dipole  I 

c 

JB(I) 

- 

2nd  segment  of  test  dipole  I 

c 

MD(J,K) 

- 

list  of  test  dipoles  sharing  segment  J 

c 

MAX 

- 

maximum  value  of  ND(J) 

c 

MIN 

- 

minimum  value  of  ND(J) 

c 

N 

- 

total  #  of  test  dipole  modes 

c 

N1 

- 

#  of  test  dipole  modes  in  one  quadrant  of  the  ground 

c 

screen,  which  have  symmetric  counter  parts  in  the 

c 

other  three  quadrants. 

c 

N2 

- 

#  of  test  dipole  modes  in  one  half  of  the  ground 

C  screen,  which  have  symmetric  counter  parts  in  the 

C  other  half. 

C  ND(J)  -  total  number  of  test  dipoles  sharing  segments  J 

C 

C  IMPLICIT: 

C 

C  OTHER  MAJOR  VARIABLES: 

C 

C  lOE  -  odd-even  indicator  (1  :  odd;  2  :  even) 

C  ND4  -  #  of  test  dipoles  divided  by  four 

C  NPW  -  #  of  points  per  wire 

C 

C  SYSTEM  STATE  CHANGES:  NONE 


ooooooo  ooooooo  ooo  ooo 


MODIFIED! 


C 
C- 
C 

C 
C 

C  Declare  variables. 

C 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  11(1), 12(1), 13(1), JA(1),JB(1) 
DIMENSION  I A ( 1 ) , IB ( 1 ) , ND( 1 ) , MD( INM , 4 ) 


Define  variables. 

NV2=NW/2 

NSW2=NSW/2 

ND4=(NSW-l)/2 


Determine  if  NSW  is  odd  or  even. 

I0E=1 

IF(2*NSW2.EQ.NSW)  THEN 
I0E=2 

ND4=(NSW-2)/2 

ENDIF 

NPW=NSW+1 

1=0 

This  section  creates  the  test  dipoles  if  no  N-S  vires  are  present. 
IF(INS.NE.O)  GO  TO  100 


Determine  the  test  dipole  points  in  first  quadrant. 
All  the  test  dipoles  are  straight. 

DO  10  K=1,NW2 
DO  10  L=1,ND4 
1=1+1 

K1=(K-1)*NPW 
I1(I)=K1+L 
I2(I)=K1+L+1 
I3(I)=Kl+L+2 
10  CONTINUE 

Determine  Nl. 


N1=I 


Determine  the  test  dipole  points  in  second  quadrant. 
All  the  test  dipoles  are  straight. 


12 

C 


DO  12  K=1,NV2 
DO  12  L=1,ND4 
1=1+1 

K1=(K-1)*NPW+NPW 

I1(I)=K1-L-1 

I2(I)=K1-L 

I3(I)=K1-L+1 

CONTINUE 


oooooo  ooo  oonoo  ono  oooo 


C  Determine  the  test  dipole  points  in  third  quadrant. 
C  All  the  test  dipoles  are  straight. 

C 

DO  14  K=1,NV2 
DO  14  L=1,ND4 
1=1+1 

K1 =NPW*NW2 + ( K- 1 ) *NPW 
I1(I)=K1+L 
I2(I)=K1+L+1 
I3(I)=Kl+L+2 
14  CONTINUE 

Determine  the  test  dipole  points  in  fourth  quadrant. 
All  the  test  dipoles  are  straight. 

DO  16  K=1,NW2 
DO  16  L=1,ND4 
1=1+1 

K1=NPW*NW2+(K-1)*NPW+NPW 
I1(I)=K1-L-1 
I2(I)=K1-L 
I3(I)=K1-L+1 
16  CONTINUE 

Determine  N  and  N2. 


N=I 

N2=N 


If  the  number  of  segments  per  wires  is  even,  a  test  dipole  straddles 
the  east  and  west  halves  and  must  be  dealt  with  differently  since  it 
has  only  two-fold  symmetry. 


IF(IOE.EQ.l)  GO  TO  20 
DO  18  K=1,NW 
1=1+1 

Kl=(NPV-l)/2+(K-l)*NPV 
I1(I)=K1 
I2(I)=K1+1 
I3(I)=Kl+2 
18  CONTINUE 


Determine  N  and  N2. 


N=I 

N2=N-NW2 


Determine  the  segments  corresponding  to  the  test  dipoles. 


20  1=0 


Determine  the  test  dipole  segme.its  in  first  quadrant. 

DO  30  K=1,NV2 
DO  30  L=1,ND4 
1  =  1  +  1 

K1=(K-1)*NSV 
JA(I)=K1+L 
JB(I)=K1+L+1 
30  CONTINUE 


no  ooooono  onooo  non  non  non 


Determine  the  test  dipole  segments  in  second  quadrant. 

DO  32  K=1,NW2 
DO  32  L=1,ND4 
1=1+1 

K1=(K-1)*NSW+NSW 
JA(I)=K1-L 
JB(I)=K1-L+1 
32  CONTINUE 

Determine  the  test  dipole  segments  in  third  quadrant. 

DO  34  K=1,NV2 
DO  34  L=1,ND4 
1=1+1 

K1=NSW*NW2+(K-1)*NSW 
JA(I)=K1+L 
JB(I)=K1+L+1 
34  CONTINUE 

Determine  the  test  dipole  segments  in  fourth  quadrant. 

DO  36  K=1,NW2 
DO  36  L=1,ND4 
1=1+1 

K1=NSW*NW2+(K-1)*NSW+NSW 
JA(I)=K1-L 
JB(I)=K1-L+1 
36  CONTINUE 

If  the  number  of  segments  per  vires  is  even,  a  test  dipole  straddles 
the  east  and  west  halves  and  must  be  dealt  with  differently  since  it 
has  only  two-fold  symmetry. 

IF  (lEO.EQ.l)  GO  TO  340 
DO  38  K=1,NW 
1=1+1 

K1=NSW2+(K-1)*NSW 
JA(I)=K1 
JB(I)=K1+1 
38  CONTINUE 
GO  TO  340 

This  section  creates  the  test  dipoles  if  N-S  wires  are  present. 
Determine  the  test  dipole  points  in  first  quadrant. 

These  test  dipoles  are  straight  oriented  east-west. 

100  DO  101  K=1,NV2 

DO  101  L=1,ND4 
1=1+1 

K1=(K-1)*NPU 
I1(I)=K1+L 
I2(I)=.  UL+1 
I3(I)=Kl+L+2 

101  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  southeast 


nnnooono  onoo  oooo  ooo  oo 


corner  of  the  grid  rectangle. 

DO  102  K=1,NW2 
DO  102  L=1,NSW2 
1=1+1 

K1=(K-2)*NPW 

IF(K.EQ.l)  K1=NPV*NV2 

K2=(K-1)*NPW 

I.(I)=K1+L 

I2(I)=K2+L 

I3(I)=K2+L+1 

102  CONTINUE 

These  test  dipoles  are  straight  oriented  north-south. 

DO  103  K=1,NW2-1 
DO  103  L=1,NSW2 
1=1+1 

K1=(K-2)*NPW 

IF(K.EQ.l)  K1=NPW*NV2 

K2=(K-1)*NPW 

K3=K*NPW 

I1(I)=K1+L 

I2(I)=K2+L 

I3(I)=K3+L 

103  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  southwest 
corner  of  the  grid  rectangle. 

DO  104  K=1,NW2 
1=1+1 

Kl=(K-l)*NPW+ND4+2 

K3=(K-2)*NPW+ND4+2 

IF(K.EQ.l)  K3=NW2*NPW+ND4+2 

I1(I)=K1-1 

I2(I)=K1 

I3(I)=K3 

104  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  northwest 
corner  of  the  grid  rectangle. 

DO  105  K=1,NW2-1 
1=1+1 

Kl=(K-l)*NPV+ND4+2 

K3=K*NPW+ND4+2 

I1(I)=K1-1 

I2(I)=K1 

I3(I)=K3 

105  r-ONTTMUE 


Determine  Nl. 


N1=I 


Determine  the  test  dipole  points  in  second  qridrant. 
These  test  dipoles  are  straight  oriented  east-west. 


oooo  oooo  ooo  oooo 


DO  111  K=1,NV2 
DO  111  U1,ND4 
1=1+1 
K1=K*NPW 
I1(I)=K1-L+1 
I2(I)=K1-L 
I3(I)=K1-L-1 

111  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  southwest 
corner  of  the  grid  rectangle. 

DO  112  K=1,NW2 
DO  112  L=1,NSW2 
1=1+1 

K1=(K-1)*NPW 

IF(K.EQ.l)  K1=NPW*NW2+NPW 
K2=K*NPW 
I1(I)=K1-L+1 
I2(I)=K2-L+1 
I3(I)=K2-L 

112  CONTINUE 

These  test  dipoles  are  straight  oriented  north-south. 

DO  113  K=1,NW2-1 
DO  113  L=1,NSW2 
1=1+1 

K1=(K-1)*NPW 

IF(K.E(1.1)  K1=NPW*NW2+NPW 

K2=K*NPW 

K3=(K+1)*NPW 

I1(I)=K1-L+1 

I2(I)=K2-L+1 

I3(I)=K3-L+1 

113  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  southeast 
corner  of  the  grid  rectangle. 

DO  114  K=1,NW2 
1=1+1 

K1=K*NPW-ND4 

K3=(K-1)*NPW-ND4-1 

IF(K.EQ.l)  K3=NW2*NPW+NPW-ND4-1 

I1(I)=K1 

I2(I)=K1-1 

I3(I)=K3 

114  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  northeast 
corner  of  the  grid  rectangle. 

DO  115  K=1,NW2-1 
1=1+1 

K1=K*NPW-ND4 

K3=(K+1)*NPW-ND4-1 

I1(I)=K1 

I2(I)=K1-1 

I3(I)=K3 


ooon  oooo  ooo  n n n n  ooooo 


115  CONTINUE 

Determine  the  test  dipole  points  in  third  quadrant. 

These  test  dipoles  are  straight  oriented  east-west. 

DO  121  K=1,NW2 
DO  121  L=1,ND4 
1=1+1 

Kl= (K- 1 ) *NPW+NW2*NPW 
I1(I)=K1+L 
I2(I)=K1+L+1 
I3(I)=Kl+L+2 

121  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  northeast 
corner  of  the  grid  rectangle. 

DO  122  K=1,NW2 
DO  122  L=1,NSW2 
1=1+1 

Kl= ( K-2 ) *NPW+NW2*NPW 

IF(K.EQ.l)  K1=0 

K2= (K- 1 ) *NPW+NW2*NPV 

I1(I)=K1+L 

I2(I)=K2+L 

I3(I)=K2+L+1 

122  CONTINUE 

These  test  dipoles  are  straight  oriented  north-south. 

DO  123  K=1,NW2-1 
DO  123  L=1,NSW2 
1=1+1 

K1=(K-2)*NPW+NW2*NPW 

IF(K.EQ.l)  K1=0 

K2 = ( K- 1 ) *NPW+NW2*NPW 

K3=K*NPW+NW2*NPW 

I1(I)=K1+L 

I2(I)=K2+L 

I3(I)=K3+L 

123  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  northwest 
corner  of  the  grid  rectangle. 

DO  124  K*1,NW2 
1=1+1 

K1 = ( K- 1 ) *NPW+NW2  *NPW+ND4 + 2 

K3=(K-2)*NPW+NW2*NPW+ND4+2 

IF(K.EQ.l)  K3=ND4+2 

I1(I)=K1-1 

I2(I)=K1 

I3(I)=K3 

124  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  southwest 
corner  of  the  grid  rectangle. 


DO  125  K=1,NW2-1 


oooo  ooo  oooo  ooooo 


1=1+1 

K1 = ( K- 1 ) *NPW+NW2*NPW+ND4+ 2 
K3=K*NPW+NW2*NPW+ND4+2 
I1(I)=K1-1 
I2(I)=K1 
I3(I)=K3 
125  CONTINUE 

Determine  the  test  dipole  points  in  fourth  quadrant. 


These  test  dipoles  are  straight  oriented  east-vest. 

DO  131  K=1,NW2 
DO  131  L=1,ND4 
1=1+1 

K1=K*NPW+NW2*NPW 

I1(I)=K1-L+1 

I2(I)=K1-L 

I3(I)=K1-L-1 

131  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  northwest 
corner  of  the  grid  rectangle. 

DO  132  K=1,NW2 
DO  132  L=1,NSW2 
1=1+1 

K1 = ( K- 1 ) *NPW+NW2*NPW 

IF(K.EQ.l)  K1=NPW 

K2=K*NPW+NV2*NPW 

I1(I)=K1-L+1 

I2(I)=K2-L+1 

I3(I)=K2-L 

132  CONTINUE 

These  test  dipoles  are  straight  oriented  north-south. 

DO  133  K=1,NV2-1 
DO  133  L=1,NSW2 
1=1+1 

K1 = ( K- 1 ) *NPW+NW2  *NPW 

IF(K.EQ.l)  K1=NPW 

K2=K*NPW+NW2*NPW 

K3= ( K+ 1 ) *NPW+NW2*NPW 

I1(I)=K1-L+1 

I2(I)=K2-L+1 

I3(I)=K3-L+1 

133  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  northeast 
corner  of  the  grid  rectangle. 

DO  134  K=1,NV2 
1=1+1 

K1 =K*NPV+NW2*NPW-ND4 

K3= ( K- 1 ) *NPW+NW2  *NPW-ND4 - 1 

IF(K.EQ.l)  K3=NPW-ND4-1 

I1(I)=K1 

I2(I)=K1-1 

I3(I)=K3 


OOOO  OOOO  O  O  O  Cl  O  O  O  Cl  O  Cl  O  Cl  Cl  Cl  Cl  Cl 


134  CONTINUE 

These  test  dipoles  have  right  angles  positioned  in  southeast 
corner  of  the  grid  rectangle. 

DO  135  K=1,NW2-1 
1=1+1 

K1 =K*NPW+NW2*NPW-ND4 

K3= (K+ 1 ) *NPW+NW2*NPW-ND4-1 

I1(I)=K1 

I2(I)=K1-1 

I3(I)=K3 

135  CONTINUE 

Determine  N2  and  N. 


N2=I 

N=I 

Determine  the  segments  corresponding  to  the  test  dipoles. 


1=0 


Determine  the  test  dipole  segments  in  first  quadrant. 

Determine  the  segments  corresponding  to  the  straight  test  dipoles 
oriented  east-vest. 

200  DO  201  K=1,NW2 

DO  201  L=1,ND4 
1=1+1 

K1=(K-1)*NSW 

JA(I)=K1+L 

JB(I)=K1+L+1 

201  CONTINUE 

Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 
positioned  in  the  southeast  corner  of  the  grid  rectangle. 

DO  202  K=1,NW2 
DO  202  L=1,NSW2 
1=1+1 

K1=NW*NSW+(K-1)*NPW 

K2=(K-1)*NSW 

JA(I)=K1+L 

JB(I)=K2+L 

202  CONTINUE 

Determine  the  segments  corresponding  to  the  straight  test  dipoles 
oriented  north-south. 

DO  203  K=1,NV2-1 
DO  203  L=1,NSW2 
1=1+1 

K1=NW*NSW+(K-1)*NPW 

K2=NV*NSW+K*NPW 

JA(I)=K1+L 

JB(I)=K2+L 

203  CONTINUE 
C 


C  Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 
C  positioned  in  the  southwest  corner  of  the  grid  rectangle. 

C 

DO  204  K=1,NW2 
1=1+1 

K1=(K-1)*NSW+NSW2 

K2 =NW*NSW+ ( K- 1 ) *NPW+NSW2+ 1 

JA(I)=K1 

JB(I)=K2 

204  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 
C  positioned  in  the  northwest  corner  of  the  grid  rectangle. 

C 

DO  205  K=1,NW2-1 
1=1+1 

K1=(K-1)*NSW+NSW2 
K2 =NV*NSW+K*NPW+NSW2 + 1 
JA(I)=K1 
JB(I)=K2 

205  CONTINUE 
C 

C  Determine  the  test  dipole  segments  in  second  quadrant. 

C 

C  Determine  the  segments  corresponding  to  the  straight  test  dipoles 
C  oriented  east-west. 

C 

DO  211  K=1,NW2 
DO  211  L=1,ND4 
1=1+1 

K1=(K-1)*NSW+NSW 

JA(I)=K1-L+1 

JB(I)=K1-L 

211  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 
C  positioned  in  the  southwest  corner  of  the  grid  rectangle. 

C 

DO  212  K=1,NW2 
DO  212  L=1,NSW2 
1=1+1 

K1=NW*NSW+K*NPW 

K2=(K-1)*NSW+NSW 

JA(I)=K1-L+1 

JB(I)=K2-L+1 

212  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  straight  test  dipoles 
C  oriented  north-south. 

C 

DO  213  K=1,NW2-1 
DO  213  L=1,NSV2 
1=1+1 

Kl=NV*NSV+K*NPy 

K2=NW*NSW+(K+1)*NPW 

JA(I)=K1-L+1 

JB(I)=K2-L+1 

213  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 


C  positioned  in  the  southeast  corner  of  the  grid  rectangle. 

C 

DO  214  K»1,NW2 
1*1+1 

K1*K*NSW-NSW2+1 

K2=NW*NSW+K*NPW-NSW2 

JA(I)=K1 

JB(I)=K2 

214  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 
C  positioned  in  the  northeast  corner  of  the  grid  rectangle. 

C 

DO  215  K*1,NW2-1 
1=1+1 

K1=K*NSW-NSW2+1 
K2=NW*NSW+ ( K+ 1) *NPW-NSW2 
JA(I)=K1 
JB(I)=K2 

215  CONTINUE 
C 

C  Determine  the  test  dipole  segments  in  third  quadrant. 

C 

C  Determine  the  segments  corresponding  to  the  straight  test  dipoles 
C  oriented  east-west. 

C 

DO  221  K=1,NW2 
DO  221  L*1,ND4 
1=1+1 

K1=NSW*NV2+(K-1)*NSW 

JA(I)=K1+L 

JB(I)*K1+L+1 

221  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 
C  positioned  in  the  northeast  corner  of  the  grid  rectangle. 

C 

DO  222  K=1,NW2 
DO  222  L=1,NSW2 
1=1+1 

K1=NW*NSW+NW2*NPW+ (K-2 ) *NPW 
IF(K.EQ.l)  K1=NW*NSW 
K2=NSW*NW2+ (K-1 ) *NSW 
JA(I)=K1+L 
JB(I)=K2+L 

222  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  straight  test  dipoles 
C  oriented  north-south. 

C 

DO  223  K=1,NV2-1 
DO  223  L=1,NSW2 
1=1+1 

K1=NW*NSW+NW2*NPW+(K-2)*NPW 
IF(K.EQ.l)  K1=NW*NSW 
K2=NW*NSW+NW2*NPW+ (K- 1 ) *NPW 
JA(I)=K1+L 
JB(I)=K2+L 

223  CONTINUE 
C 


C  Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 
C  positioned  in  the  northwest  corner  of  the  grid  rectangle. 

C 

DO  224  K=1,NW2 
1=1+1 

K1=NSU*NV2 + ( K- 1 ) *NSW+NSW2 
K2=NW*NSW+NV2*NPW+ ( K- 1 ) *NPW-NSV2 
IF(K.EQ.l)  K2=NV*NSW+NPW-NSW2 
JA(I)=K1 
JB(I)=K2 

224  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 
C  positioned  in  the  southwest  corner  of  the  grid  rectangle. 

C 

DO  225  K=1,NW2-1 
1=1+1 

K1=NSW*NW2+(K-1)*NSW+NSW2 
K2  =NW*NSW+NV2  *NPW+K*NPW-NSW2 
JA(I)=K1 
JB(I)=K2 

225  CONTINUE 
C 

C  Determine  the  test  dipole  segments  in  fourth  quadrant. 

C 

C  Determine  the  segments  corresponding  to  the  straight  test  dipoles 
C  oriented  east-west. 

C 

DO  231  K=1,NW2 
DO  231  L=1,ND4 
1=1+1 

K1=NSW*NW2+K*NSW 

JA(I)=K1-L+1 

JB(I)=K1-L 

231  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 
C  positioned  in  the  northwest  corner  of  the  grid  rectangle. 

C 

DO  232  K=1,NW2 
DO  232  L=1,NSW2 
1=1+1 

K1 =NW*NSW+NW2*NPW+ ( K- 1 ) *NPW 
IF(K.EQ.l)  K1=NW*NSW+NPW 
K2=NSV*NV2+K*NSW 
JA(I)=K1-L+1 
JB(I)=K2-L+1 

232  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  straight  test  dipoles 
C  oriented  north-south. 

C 

DO  233  K=1,NV2-1 
DO  233  L=1,NSW2 
1=1+1 

Kl=NV*NSW-fNV2*NPW+  (K-1 )  *NPW 
IF(K.EQ.l)  K1=NV*NSU+NPW 
K2=NV*NSW+NV2*NPW+K*NPW 
JA(I)=K1-L+1 
JB(I)=K2-L+1 


233  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 
C  oositioned  in  the  northeast  corner  of  the  grid  rectangle. 

C 

DO  234  K=1,NW2 
1=1+1 

K1 =NSW*NW2+K*NSW-NSW2 + 1 

K2 =NV*NSW+NW2*NPW+ ( K- 1 ) *NPU-NSW2 

IF(K.EQ.l)  K2=NW*NSW+NPW-NSW2 

JA(I)=K1 

JB(I)=K2 

234  CONTINUE 
C 

C  Determine  the  segments  corresponding  to  the  right  angle  test  dipoles 
C  positioned  in  the  southeast  corner  of  the  grid  rectangle. 

C 

DO  235  K=1,NW2-1 
1=1+1 

K1=NSW*NV2+K*NSW-NSW2+1 

K2=NW*NSW+NW2*NPW+K*NPU-NSW2 

JA(I)=K1 

JB(I)=K2 

235  CONTINUE 
C 

C  Set  Initial  values  of  ND(J)  and  MD(J,K)  equal  to  zero. 

C 

340  DO  350  J=1,NM 
ND(J)=0 
DO  350  K=l,4 
MD(J,K)=0 
350  CONTINUE 
III=N 

IF(N.GT.ICJ)III=ICJ 

C 

C  Determine  ND(J)  and  MD(J,K). 

C 

DO  360  1=1,111 
J=JA(I) 

DO  358  L=l,2 
ND(J)=ND(J)+1 
K=1 
M=0 

352  MJK=MD(J,K) 

IF(MJK.NE.0)G0  TO  354 
M=1 

MD(J,K)=I 
354  K=K+1 

IF(K.GT.4)G0  TO  358 
IF'M.EQ.0)G0  TO  352 
358  J=JB(I) 

360  CONTINUE 
C 

C  Determine  MAX  and  MIN. 

C 

MIN=100 

MAX=0 

DO  366  J=1,NM 
NDJ=ND(J) 

I F ( ND J . GT . MAX ) MAX=ND J 


non 


IF(NDJ . LT . MIN)MIN=NDJ 
366  CONTINUE 

Return  to  main  program. 

RETURN 

END 


$!!!!!!! !!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!! 
$  !  ! 

$  !  GEN  ARRAY.COM  ! 

$  !  ! 

$  !!!!!!! f ! f ! f ! f  f ! f ! f ! r !!!!!!!  f  f !!! f  f !!!  f !!  f  1 1 !!!!!!!!  f !!!!!!  I !!!!!  I !  f ! ! 
$  SET  DEF  SPACE: I BERG. ARRAY] 

$  ! 

$  !  Inquire  name  of  main  program. 

$  ! 

$  IF  Pl.EQS.""  THEN  INQUIRE  PI  "PROGRAM" 

$  I 

$  !  Inquire  file  names  of  ELPOS  -  element  positions  in  array 
$  !  CURRNT  -  terminal  current  values  of  each 

$  !  element 

$  !  ELFFLD  -  element  electric  field  values 

$  !  The  names  of  the  subroutines  are  given  above,  however  each 

$  !  different  subroutine  is  given  a  unique  file  name,  usually  in 

$  !  the  form  ELPOS  ****,  CURRNT_****,  or  ELFFLD_****  to  specify 

$  !  the  related  suBroutine's  name. 

$  ! 

$  IF  P2.EQS.""  THEN  INQUIRE  P2  "ELPOS  SUBROUTINE  FILE  NAME" 

$  IF  P3.EQS.""  THEN  INQUIRE  P3  "CURRNT  SUBROUTINE  FILE  NAME" 

$  IF  P4.EQS.""  THEN  INQUIRE  P4  "ELFFLD  SUBROUTINE  FILE  NAME" 

$  ! 

$  ASSIGN  'PI '.OUT  F0R007 

$  ! 

$  !  Each  subroutine  must  have  a  corresponding  command  file  which  assign 
$  !  the  input  and  output  files  the  proper  FORTRAN  unit  number. 

$  ! 

$  @'P1'.C0M 
$  @'P2'.C0M 
$  (5'P3'.COM 
$  @'P4'.C0M 
$  SET  VERIFY 
$  ! 

$  !  Compile  *.F0R  files. 

$  ! 

$  FORTRAN/CHECK  'PI' 

$  FORTRAN/ CHECK  ARRAY_SBR 
$  FORTRAN/CHECK  'P2' 

$  FORTRAN/ CHECK  'P3' 

$  FORTRAN/CHECK  'P4' 

$  ! 

$  !  Link  *.0BJ  files. 

$  ! 

$  LINK  'PI', ARRAY  SBR, 'P2' , 'P3' , 'P4' 

$  ! 

$  !  Delete  *.0BJ  files 

$  ! 

$  DELETE  *.0BJ;* 

$  ! 

$  !  Run  program. 

$  ! 

$  RUN  'PI' 

$  SET  NOVERIFY 


PROGRAM  NEARFLD 


*  * 

*  PROGRAM  NEARFLD  * 

*  * 
iieikiticicifiieieieititieicicicicieicieitiriciricicieiciriciriticificiciciiicieiticieit'k'k'kie'kie'k'k'k'k'k-k'k'k'kit'k'k'k'kicifit'kic-k'k 

AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  Ol-AUGUST-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: : SPACE: [BERG. ARRAY) NEARFLD. FOR 


CALLING  ROUTINE: 


@MV7 7 70 : : SPACE : [ BERG . ARRAY ] GEN  ARRAY . COM 


SUBROUTINES  CALLED:  ARRAY  SBR 


COMPILE  INSTRUCTIONS; 


-  calculates  the  electric  field  at  a 
given  point  in  space  for  a  selected 
array. 


$  FORTRAN  NEARFLD 


LINK/LOAD  INSTRUCTIONS (TKB):  $  LINK  NEARFLD, ARRA Y_SBR, 'ELPOS' , 

'CURRNT' ,'ELFFLD' 

NOTE:  This  program  has  been  designed  as  a  part  of  a  set  of 

programs  and  subroutines  to  be  used  with  the  command  file 
MV7770: : SPACE: [BERG. ARRAY) GEN  ARRAY.COM 


PARENT  PROGRAM: 


MV7 7 70 : : SPACE : ( BERG . ARRAY ) GEN  ARRAY . COM 


PROGRAM  DESCRIPTION: 

This  program  calculates  the  selected  electric  field  and  power 
density  values  of  an  array  of  radiating  elements  for  a  selected  range 
and  plane. 

The  coordinate  system  chosen  for  the  inputs  places  the  x,  y,  and 
z  axes  along  the  directions  vertical,  west,  and  south,  respectively. 
This  is  not.  the  same  coordinate  system  as  is  used  by  the  subroutine 
ARRAY_SBR,  but  takes  advantage  of  the  symmetry  of  the  NAVSPASUR 
antennas,  which  are  aligned  north-south. 

Far  field  (infinite  range)  calculations  can  be  performed  by 
setting  the  range  equal  to  zero,  since  zero  range  is  never  needed  for 
practical  calculations.  The  far  electric  field  has  the  range  factor 
exp(ikr)/r  removed,  and  the  power  has  the  l/r*r  term  removed. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1 .  READ 

-  antenna  range 

-  #  of  theta  values 

-  initial  theta  value 

-  theta  interval 

-  #  of  phi  values 

-  initial  phi  value 

-  phi  interval 


for  each  value  of  theta. 


for  each  value  of  phi. 


c 

C  Perform  coordinate  transformation. 

C 

C  CALL 

C  cartesian  components  of  electric  field. 

C 


c 

p 

Determine  electric  field  magnitude. 

C 

p 

Determine  power  density. 

V/ 

c 

p 

Determine  electric  field  phase. 

c 

WRITE 

c 

-  phi  value 

c 

-  theta  value 

c 

-  electric  field  magnitude 

c 

-  electric  field  phase 

c 

r 

-  power  density 

c 

p 

ENOOO 

c 

p 

ENDDO 

c 

INPUTS 

EXPLICIT; 

c 

FOR022  -  NEARFLD.INP 

c 

NOPHVL 

-  #  of  phi  values 

c 

NOTHVL 

-  #  of  theta  values 

c 

PHIO 

-  Initial  phi  value  (degrees) 

c 

PHIINT 

-  phi  step  interval  (degrees) 

c 

R 

-  antenna  range  (kilometers) 

c 

THETAO 

-  intial  theta  value  (degrees) 

c 

c 

THETINT 

-  theta  step  interval  (degrees) 

V/ 

c 

p 

IMPLICIT; 

NONE 

c 

OUTPUTS 

EXPLICIT; 

c 

F0R007  -  NEARFLD.OUT 

c 

AEFMG 

-  array  electric  field  magnitude  (Volts/meter) 

c 

AEFPH 

-  array  electric  field  phase  (degrees) 

c 

DPH 

-  phi  (degrees) 

c 

DTH 

-  theta  (degrees) 

c 

POWER 

-  power  density  (Watts/square  meter) 

C 

C  IMPLICIT;  NONE 

C 

C  OTHER  MAJOR  VARIABLES; 

C  AEF  -  complex  array  electric  field 

C  AEFX  -  X  component  of  complex  array  electric  field 

C  AEFY  -  y  component  of  complex  array  electric  field 

C  AEFZ  -  z  component  of  complex  array  electric  field 

C  CFDR  -  conversion  factor  ;  degrees  to  radians 

C  ETA  -  intrinsic  impedance  of  ambient  medium 

C  IFLAG  -  flag  (0  ;  first  loop,  1  ;  subsequent  loops) 

C  lUNIT  -  output  file  FORTRAN  unit  number 

C  PHPR  -  phi  value  in  subroutine  coordinate  system 

C  THPR  -  theta  value  in  subroutine  coordinate  system 

C 

C  SYSTEM  STATE  CHANGES;  NONE 

C 

C- 


nan  ooo  ooo  ono  non  ooo  ci  n  o  ooo  ooo  o  o  o  o  o 


MODIFIED; 

Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 
C0MPLEX*16  AEF,AEFX,AEFY,AEFZ 


Define  constants. 

PI=3. 141592653589793 
CFDR=PI/180. 

ETA=376. 730311 
PI2=PI/2. 

Set  flag. 

IFLAG=0 

Set  NEARFLD.OUT  FORTRAN  unit  number. 
IUNIT=7 


Read  input  values. 

READ(22,*)  R 
READ(22,*)  NOTHVL 
READ (2 2,*)  THETAO 
READ(22,*)  THETINT 
READ<22,*)  NOPHVL 
READ(22,*)  PHIO 
READ(22,*)  PHIINT 
CLOSE(22) 


Loop  through  all  values  of  theta. 

DO  1=1, NOTHVL 
DTH=THETA0+(I-1 . )*THETINT 
TH=DTH*CFDR 


Calculate  cosine  and  sine. 

CTH=DC0S(TH) 

STH=DSIN(TH) 

Adjust  for  precision  errors. 

IF(DABS(CTH).LT.1.D-15)  CTH=0. 
IF(DABS(STH).LT.1.D-15)  STH=0. 


Loop  through  all  values  of  phi. 

DO  J=l, NOPHVL 
DPH=PHI0+ ( J- 1 . ) *PHIINT 
PH=DPH*CFDR 

Determine  cosine  and  sine. 


CPH=DC0S(PH) 

SPH=DSIN(PH) 


oooo  ooo  o  o  cj  ooo  ooo  rj  o  o  o  ooo  o  o  o  o  fj  o 


Adjust  for  precision  errors. 

IF(DABS(CPH).LT.1.D-15)  CPH=0. 
IF(DABS(SPH).LT.1.D-15)  SPH=0. 


Perform  coordinate  transformations. 

THPR=DACOS ( STH*CPH ) 

IF(CTH.EQ.O.  .AND.  SPH.EQ.O.)  THEN 
IF(CPH.LE.O.)  THEN 
PHPR=PI 
ELSE 
PHPR=0. 

ENDIF 

ELSE 

PHPR=DATAN2(CTH, STH*SPH) 

ENDIF 

Convert  transformed  coordinates  from  radians  to  degrees. 

DTHETA=THPR/CFDR 

DPHI=PHPR/CFDR 

Determine  cartesian  components  of  the  array  electric  field  at  the 
point  (R,THPR,PHPR)  in  space. 

CALL  ARRAY_SBR ( R , THPR , PHPR , I FLAG , lUNIT , AEFX , AEFY , AEFZ ) 

Write  header  lines. 

IF  (IFLAG.EQ.O)  THEN 
WRITE(7,1005) 

WRITE (7, 1001) 

WRITE(7,1006) 

ENDIF 

Reset  flag. 

IFLAG=1 

Determine  electric  field  magnitude. 

AEF=CDSQRT ( ( AEFX) * ( AEFX ) + ( AEFY ) * ( AEFY ) + ( AEFZ ) * ( AEFZ ) ) 
AEFMG=CDABS(AEF) 


Determine  power  density. 

P0WER=AEFMG*AEFMG/2 . /ETA 


Determine  real  and  imaginary  parts  of  cartesion  components  of  electric 
field. 


AEFXR*DREAL(AEFX) 

AEFYR=DREAL(AEFY) 

AEFZR=DREAL(AEFZ) 

AEFXI=DIMAG(AEFX) 

AEFYI=DIMAG(AEFY) 

AEFZI=DIMAG(AEFZ) 


orso  ooo  oooo  ooo 


C  Set  up  positive  and  negative  regions  of  space  to  use  to  determine  the 
C  phase  of  the  electric  field. 

C 

IF(AEFXR.GT.O.)  SIGNR=1,0 
IF(AEFXR.LT.O.)  SIGNR=-1.0 
IF(AEF3(R.EQ.O.)  THEN 

IF(AEFZR.GT.O.)  SIGNR=1.0 
IF(AEFZR.LT.O.)  SIGNR=-1.0 
IF(AEFZR.GT.O.)  THEN 

IF(AEFYR.GT.O.)  SIGNR=1.0 
IF(AEFYR.LT.O.)  SIGNR=-1.0 
ENDIF 
ENDIF 

Determine  the  phase  of  the  electric  field. 

AEF=SIGNR*AEF 
AEFRz=DREAL(AEF) 

AEFI=DIMAG(AEF) 

IF(AEFI.NE.O.  .OR.  AEFR.NE.O)  THEN 
AEFPH=DATAN2 ( AEFI , AEFR) /CFDR 
ENDIF 

Write  electric  field  magnitude  and  phase  and  power  density  for  this 
point  in  space  (R,DTH,DPH). 

WRITE  (  7 , 1007  )  DPH ,  DTH ,  AEFMG ,  AEFPH ,  POWER 
ENDDO 
ENDDO 

Format  statements. 

1001  F0RMAT(2X, 'PHI' ,7X, 'THETA' ,5X, 'E' ,22X, 'POWER' ) 

1005  FORMAT('l') 

1006  FORMAT ( 3X , ' ( deg . ) ' , AX , ' ( deg . ) ' , 3X , ' magni tude ' , 3X , ' phase ' ) 

1007  F0RMAT(1X,F9.4,2X,F8.4,2X,E9.3,2X,F8.3,2X,E9.3) 

End  of  program. 

STOP 
END 

C*********************************************************************** 


SUBROUTINE  ARRAY_SBR( R , THETA , PHI , I FLAG , lUNIT , AEFX , AEFY , AEFZ ) 

C 

C  ********************************************************************** 

c  *  * 

C  *  SUBROUTINE  ARRAYSBR  * 

C  *  * 

C  ieicificititieitieicicififititicitirieicieieifieieieicitieieifiiiticieiticiciciciicicicicilcititificit'k'k'k'k'kie'kieTkic'k'kii'k'kic'kit-k'k 

c 

C  AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

C  DATE:  27-MAY-1988 

C  LANGUAGE:  VAX  FORTRAN 

C  FILE:  MV7 7 70:; SPACE: [BERG. ARRAY JARRAYSBR. FOR 

C 

C  CALLING  ROUTINE;  @MV7770: :SPACE: [BERG. ARRAYJGENARRAY. COM 
C 

C  SUBROUTINES  CALLED:  ELPOS  -  calculates  positions  for  each  element 

C  terminal  of  the  specified  array. 

C  CURRNT  -  calculates  the  complex  current  terminal 

C  value  for  each  element  of  the  specified 

C  array. 

C  ELFFLD  -  calculates  for  a  specified  direction 

C  the  element's  range- independent  far 

C  electric  field  for  unit  terminal 

C  current. 

C 

C  COMPILE  INSTRUCTIONS;  $  FORTRAN  ARRAYSBR 

C 

C  LINK/LOAD  INSTRUCTIONS(TKB):  $  LINK  'MAIN' ,ARRAY_SBR, 'ELPOS' , 

C  'CURRNT' , 'ELFFLD' 

C 

C  PARENT  PROGRAM:  'MAIN '.FOR 

C 

C  PROGRAM  DESCRIPTION: 

C  This  subroutine  calculates  the  electric  field  at  a  specified 

C  angle  for  a  specified  array,  element  pattern,  terminal  current 
C  distribution,  and  range. 

C 

C  PROGRAM  ALGORITHM  (PSEUDOCODE); 

C 

C  1.  IF 

C  this  is  the  first  time  the  subroutine  is  called 


WRITE 

-  antenna  range  value 


-  element  positions 


WRITE 


array  name 


-  complex  current  values 


-  element  heading 


ENDIF 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


2.  DO 

-  for  each  element  in  the  array. 

Determine  the  angles  with  respect  to  the  terminal. 
CALL 

-  element's  far  electric  field  components,  less 
range  and  current  dependence. 

Include  range  and  current  dependence. 

Superimpose  electric  field  contribution  to  previous 
elements'  electric  field  contribution. 

ENDDO 

3.  RETURN 


INPUTS  EXPLICIT; 

IFLAG  -  flag  :  0  =>  first  time  called 

1  =>  previously  called 
lUNIT  -  output  unit  number 

PHI  -  standard  spherical  coordinates  phi  (radians) 

R  -  beam  pattern  range  (kilometers);  R=0  =>  far  field 

(infinite  range),  range  dependence  suppressed 
THETA  -  angle  theta  (radians) 

IMPLICIT:  NONE 

OUTPUTS  EXPLICIT: 

AEFX  -  X  component  of  electric  field  of  array  (Volts/meter) 

AEFY  -  y  component  of  electric  field  of  array  (Volts/meter) 

AEFZ  -  z  component  of  electric  field  of  array  (Volts/meter) 

F0R007  -  'MAIN '.OUT 

NAME  -  name  of  array 

R  -  range  (kilometers) 

IMPLICIT;  NONE 

OTHER  MAJOR  VARIABLES: 

CFDR  -  conversion  factor:  degrees  to  radians 

CRNT(K)  -  complex  current  at  element  K 

EFLDX  -  X  component  of  far  electric  field  from  element  with 

ground  screen  with  range  andcurrent  dependence. 

EFLDY  -  y  component  of  far  electric  field  from  element  with 
ground  screen  with  range  andcurrent  dependence. 

EFLDZ  -  z  component  of  far  electric  field  from  element  with 
ground  screen  with  range  andcurrent  dependence. 

EFX  -  X  component  of  far  electric  field  from  element  with 
range  and  current  dependence  suppressed. 

EFY  -  y  component  of  far  electric  field  from  element  with 
range  amd  current  dependence  suppressed. 

EFZ  -  z  component  of  far  electric  field  from  element  with 
range  and  current  dependence  suppressed. 

ETA  -  intrinsic  impedance  of  ambient  medium 

GAM  -  complex  propagation  constant  of  ambient  medium 


ooo  ooo  ooo  o  n  o  o  o  o  o  o  o  o  o  o  o  n  C5  o  o  o  o  o  o  o  o  o  n  o  n  o  o  o  o  o  o  o 


JFLAG  -  flag  :  0  =>  first  time  called 
1  =>  previously  called 
NEL  -  #  of  elements  in  array 

PHIPP  -  angle  phi  of  point  in  space,  origin  :  array  element 

terminal  (axes  parallel  to  primary  coordinate  system) 
PPP  -  rho  coordinate  of  point  in  space  wrt  array  element 

terminal,  origin  :  array  element  terminal,  axes  :  same 
direction  as  primary  coordinate  system 
PTHDIF  -  path  difference  for  array  far  field  calculation 
RNGFTR  -  range  dependence  of  electric  field 
RPP  -  r  coordinate  of  point  in  space  wrt  array  element 

terminal,  origin  :  array  element  terminal,  axes  :  same 
direction  as  primary  coordinate  system 
THETPP  -  angle  theta  of  point  in  space,  origin  :  array  element 
terminal  (axes  parallel  to  primary  coordinate  system) 

X  -  X  coordinate  of  point  in  space  at  which  electric  field 

is  being  calculated  (primarycoordinate  system) 

XP  -  X  coordinate  of  array  element  terminal  (primary 

coordinate  system) 

Y  -  y  coordinate  of  point  in  space  at  which  electric  field 

is  being  calculated  (primarycoordinate  system) 

YP(K)  -  y  coordinate  of  array  element  terminal  (primary 
coordinate  system) 

Z  -  z  coordinate  of  point  in  space  at  which  electric  field 

is  being  calculated  (primarycoordinate  system) 

ZP  -  z  coordinate  of  array  element  terminal  (primary 

coordinate  system) 

SYSTEM  STATE  CHANGES:  NONE 


Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 

C0MPLEX*16  EFLDX , EFLDY , EFLDZ , EFX , EFY, EFZ , AEFX , AEFY , AEFZ 
COMPLEX* 16  ETA, GAM, PTHDIF, RNGFTR 
COMPLEX* 16  CRNT(2592) 

CHARACTER*30  NAME 
DIMENSION  YP(2592) 

Set  values  of  constants. 

DATA  PI/3.141592653589793/ 

IF(IFLAG.EQ.O)  THEN 
CFDR=PI/180.D0 
IUNIT=7 
JFLAG=0 

Write  range  value. 

IF(R.NE.O.)  THEN 
WRITE(IUNIT,1001)  R 
ELSE 

WRITE(IUNIT,1002) 

ENDIF 

Convert  range  to  meters. 


R=1.D3*R 


c*oo  ooo  ooo  oooo  non  ooo  nonooooooooo 


Calculate  element  positions. 

CALL  ELPOS(NAME,NEL,XP,YP,ZP) 

Write  array  name. 

WRITE(IUNIT,101)  NAME 

Call  a  set  of  complex  current  values  for  each  element  terminal. 

CALL  CURRNT(IUNIT,NEL,CRNT) 

Call  for  element  heading. 

CALL  ELFFLD( PHIPP , THETPP , JFLAG , lUNIT , ETA , GAM , EFX , EFY , EFZ ) 
JFLAG=1 
ENDIF 

Reset  array  electric  fields  to  zero. 

AEFX=DCMPLX(0. ,0.) 

AEFY=.DCMPLX(0.  ,0.) 

AEFZ=DCMPLX(0.,0.) 

Determine  cosines  and  sines  of  angles. 

CTH=DC0S(THETA) 

STH=DSIN( THETA) 

CPH=DC0S(PHI) 

SPH=DSIN(PHI) 

Determine  coordinates  of  point  in  space  at  which  electric  field  is 
being  calculated. 

X=R*CPH*STH 

Y=R*SPH*STH 

Z=R*CTH 

Determine  electric  field  for  given  values  of  phi  and  theta. 

200  DO  K=1,NEL 

IF(R.NE.O.  .OR.  K.EQ.l)  THEN 


Determine  angles  with  respect  each  element  terminal. 

PPP=DSQRT ( ( X-XP ) * ( X-XP ) + ( Y- YP ( K ) ) * ( Y- YP ( K ) ) ) 
RPP=DSQRT( PPP*PPP+ ( Z-ZP ) * ( Z-ZP ) ) 

IF(R.NE.O.)  THEN 
PHIPP=PI/2. 

IF ( X . NE . XP )  PHIPP=DATAN2 ( ( Y-YP (K) ) , ( X-XP ) ) 
THETPP=PI/2. 

IF(Z.NE.ZP)  THETPP=DATAN(PPP/(Z-ZP)) 

ELSE 

PHIPP=PHI 

THETPP=THETA 

ENDIF 

Calculate  element's  electric  field. 


non  non  ooo  ooo 


CALL  ELFFLD( PHIPP , THETPP , JFLAG , lUNIT , ETA , GAM , EFX , EFY , EFZ ) 
ENDIF 

Multiply  by  current  and  range  dependence. 

IF(R.EQ.O.)  THEN 

PTHDI F=CDEXP (GAM*YP(K)*STH*SPH) 

EFLDX=PTHDIF*CRNT(K)*EFX 
EFLDY=PTHDIF*CRNT(K)*EFY 
EFLDZ=PTHDI F*CRNT ( K ) *EFZ 
ELSE 

RNGFTR= ( CDEXP ( -GAM*RPP ) ) /RPP 
EFLDX=RNGFTR*CRNT(K)*EFX 
EFLDY=RNGFTR*CRNT ( K ) *EFY 
EFLDZ=RNGFTR*CRNT(K)*EFZ 
ENDIF 


Add  all  contributions  to  electric  field. 

AEFX=AEFX+EFLDX 
AEFY=AEFY+EFLDY 
AEFZ=AEFZ+EFLDZ 
ENDDO 

Return  to  the  main  program. 

RETURN 

Format  statements. 

101  FORMAT('0' ,A30) 

1001  F0RMAT( IX, 'RANGE  =  ',F6.0,'  kilometers') 

1002  F0RMAT(1X,'FAR  FIELD  CALCULATION') 

C 

END 


ooonoonooonooooooooooooonoooooononoorjooooooooooooooorjooooo 


C+ 

SUBROUTINE  ELPOS ( NAME , NEL , XP , YP , ZP ) 


★  it 

*  SUBROUTINE  ELPOSRCVR  * 

it  * 


AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  Ol-AUGUST-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: :SPACE: [ BERG . ARRAY 1 ELPOSRCVR . FOR 

CALLING  ROUTINE:  @MV7770: :SPACE: [BERG. ARRAY]GEN_ARRAY. COM 

SUBROUTINES  CALLED:  NONE 

COMPILE  INSTRUCTIONS:  $  FORTRAN  ELPOSRCVR 

LINK/ LOAD  INSTRUCTIONS (TKB):  $  LINK  'MAIN' ,ARRAY_SBR,ELPOS_RCVR, 

'CURRNT' ,'ELFFLD' 


PARENT  PROGRAM:  ARRAYSBR. FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  calculates  the  element  positions  of  the 
specified  linear  receiver  antenna  array  and  returns  them  to  the  main 
program. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1 .  READ 

-  array  name 

-  array  indicator 

-  #  of  elements 

-  element  spacing  (inches) 

2.  DO 

for  each  element 

Determine  position  of  that  element. 

ENDDO 

3.  DO 

for  each  element 

Translate  coordinates  so  center  of  array  is  located 
at  origin. 

ENDDO 

4.  RETURN 


INPUTS  EXPLICIT: 

F0R002  -  ELPOSRCVR.INP 

NAME  -  name  of  array 


oo  noo  ono  ooo  ooo  o o o o o o o o o n o o o n o o o o o o o o o o o o o o o o o o o o o o 


lARRAY  -  array  indicator 


lARRAY  =  11  : 

12  : 

13  ; 

14  : 

15  : 

FOROll  -  ARRAYSRE.INP  \  / 

F0R012  -  ARRAYAOO.INP  |  | 

F0R013  -  ARRAY  600. INP  |  | 

F0R014  -  ARRAY_1200.INP  j  \ 

F0R015  -  ARRAY_2400.INP  /  \ 

IMPLICIT:  NONE 


single  element 
400  ft.  receiver  antenna 
600  ft.  receiver  antenna 
1200  ft.  receiver  antenna 
2400  ft.  receiver  antenna 


ELSPG  -  element  spacing 

within  bay  (inches) 
NEL  -  #  of  elements  per  bay 


OUTPUTS  EXPLICIT: 

NAME 

NEL 

XP 

YP(L) 

ZP 


-  name  of  array 

-  #  of  elements  in  array 

-  X  position  of  all  elements 

-  y  position  of  element  L 

-  z  position  of  all  elements 


IMPLICIT:  NONE 


OTHER  MAJOR  VARIABLES: 

CFIM  -  conversion  factor:  inches  to  meters 

NEB  -  #  of  elements  per  bay  for  DO  loop 


SYSTEM  STATE  CHANGES:  NONE 


Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 
CHARACTER*30  NAME 
DIMENSION  YP(2592) 


Define  constants. 

CFIM=.3048D0/12.D0 

Read  specified  array  and  array  indicator. 

READ(2,100)  NAME 
READ(2,*)  lARRAY 


Read  input  data  from  specified  array  data  file. 

READ( lARRAY,*)  NEL 
READ (I ARRAY,*)  ELSPG 


Set  initial  conditions. 


L=0 

C=0. 

Calculate  y  coordinate  of  each  element. 


o  o  o  o  o  o 


c 

DO  U1,NEL 

YP(L)=(L-1'  2LSPG*CFIM 
ENDDO 

Place  origin  in  center  of  array. 

DO  U1,NEL 

YP(L)=YP(L)-YP(NEL)/2. 

ENDDO 

All  elements  have  same  x  and  z  coordinates. 

XP=0. 

ZP=0. 

C 

100  FORMAT(A) 

C 

RETURN 

END 


OOOOOOOOOCJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


c+ 

SUBROUTINE  ELPOS(NAME,NEL,XP, YP,ZP) 


********************************************************************** 
*  * 

*  SUBROUTINE  ELPOSTRNS  * 

*  * 
ieifirititititirititiieit'kiticiticicicititifit-k'kit'k'kic'k'kiciticicicicit-k'kicif'k'kit'k'k'k'kie'kitiriticic'kitic'kic'k'kit'k'k'kit-kic 


AUTHOR: 

DATE: 

LANGUAGE: 

FILE: 


DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

15-MARCH-1988 

VAX  FORTRAN 

MV7770: : SPACE: ( BERG. ARRAY lELPOSTRNS. FOR 


CALLING  ROUTINE:  @MV7770: :SPACE: [BERG. ARRAY]GEN_ARRAY. COM 


SUBROUTINES  CALLED:  NONE 


COMPILE  INSTRUCTIONS:  $  FORTRAN  ELPOSTRNS 

LINK/LOAD  INSTRUCTIONS (TKB):  $  LINK  'MAIN',  ARRAY_SBR , ELPOSTRNS , 

'CURRENT' ,'ELFFLD' 

PARENT  PROGRAM:  ARRAYSBR . FOR 
PROGRAM  DESCRIPTION: 

This  subroutine  calculates  the  element  positions  of  the 
specified  linear  array  and  returns  them  to  the  main  program. 

The  coordinate  system  has  the  positive  x,  y,  and  z  aligned  with  the 
directions  west,  south,  and  vertical,  respectively. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1 .  READ 

-  array  name 

-  array  indicator 

-  #  of  bays 

-  #  of  elements  per  bay 

-  #  of  elements  per  bay  in  bay  #  8  (if  applicable) 

-  element  spacing 

-  bay  spacing 

-  road  gap  (if  applicable) 

2.  DO 

for  each  bay 

Determine  the  number  of  elements  in  that  bay. 

DO 

for  each  element 


Determine  position  of  that  element. 


ENDDO 

Add  spacing  to  first  dipole  of  next  bay. 


ENDDO 


3.  DO 


ooooocjoooooooonooooooooooooonoooooooooooooooooooocioooooooooo 


for  each  element 

Translate  coordinates  so  center  of  array  is  located 
at  origin. 


ENDDO 

4.  RETURN 


INPUTS  EXPLICIT: 
F0R002  -  ELPOS 
NAME 
lARRAY 


TRNS.INP 

-  name  of  array 

-  array  indicator 


lARRAY  = 


11 

12 

13 

14 

15 

16 

17 

18 


single  transmitter  element 

single  Kickapoo  bay 

Jordan  Lake 

Gila  River 

Kickapoo  Complex 

North  Kickapoo 

South  Kickapoo 

variable  transmitter  array 


FOROll 

F0R012 

F0R013 

F0R014 

F0R015 

F0R016 

FOR017 

F0R018 


ARRAY 

ARRAY' 

ARRAY' 

ARRAY' 

ARRAY' 

ARRAY' 

ARRAY' 

ARRAY' 


STE.INP 

KB.INP 

JL. INP 
GR.INP 

KC. INP 
KN.INP 
KS.INP 
VTA.INP 


/  BYSPG 

I 

ELSPG 

NBAY 
NELBY 

NELBY8 


RDGAP 


bay  spacing,  in 
excess  of  element 
spacing  (inches) 
element  spacing 
within  bay  (inches) 

#  of  bays 

normal  #  of  elements 
per  bay 

#  of  elements  in  bay 
#8  for  North  Kickapoo 
Bay  #8  is  split  by  a 
road 

road  gap  within  bay 
#8,  in  excess  of 
element  spacing,  for 
North  Kickapoo 
(inches) 


IMPLICIT: 


NONE 


OUTPUTS  EXPLICIT: 

NAME  -  name  of  array 
NEL  -  #  of  elements  in  array 

XP  -  X  position  of  all  elements 

YP(L)  -  y  position  of  element  L 

ZP  -  z  position  of  all  elements 


IMPLICIT;  NONE 


OTHER  MAJOR  VARIABLES: 

CFIM  -  conversion  factor:  inches  to  meters 

NEB  -  #  of  elements  per  bay  for  DO  loop 


SYSTEM  STATE  CHANGES:  NONE 


ooo  ooo  o o o  o o o  ooo  ooo 


c- 

IMPLICIT  REAL*8(A-H,0-Z) 
CHARACTER* 30  NAME 
DIMENSION  YP(2592) 

C 

CFIM=.3048D0/12.D0 


Read  specified  array  and  array  indicator. 

READ(2,100)  NAME 
READ(2,*)  lARRAY 


Read  input  data  from  specified  array  data  file. 

READdARRAY,*)  NBAY 
READ(IARRAY,*)  NELBY 
READ(IARRAY,*)  NELBY8 
READdARRAY,*)  ELSPG 
READdARRAY,*)  BYSPG 
READdARRAY,*)  RDGAP 


Set  initial  conditions. 

L=0 

C=0. 

Calculate  y  coordinate  of  each  element. 
DO  1=1, NBAY 

IF(I.NE.8  .OR.  lARKAY.EQ.l?)  THEN 
NEB=NELBY 
DO  J=1,NEB 
L=L+1 

YP( L) = ( L-1 )*ELSPG*CFIM+C 
ENDDO 

C=C+BYSPG*CFIM 

ELSE 

NEB=NELBY8/2. 

DO  K=l,2 
DO  J=1,NEB 
L=L+1 

YP ( L) = ( L- 1 ) *ELSPG*CFIM+C 
ENDDO 

IF(K.EQ.l)  THEN 
C»C+RDGAP*CFIM 
ELSE 

C=C+BYSPG*CFIM 

ENDIF 

ENDDO 

ENDIF 

ENDDO 

Detemine  total  of  elements  for  array. 
NEL=L 

Place  origin  in  center  of  array. 


DO  L=1,NEL 

YP(L)=YP(L)-yP(NEL)/2. 


O  CJ  o 


ENDDO 


All  elements  have  same  x  and  z  coordinates. 

XP»0. 

ZP.0. 

C 

100  FORMAT(A) 

C 

RETURN 

END 


orjoooooooooooooonooooorjooooooooooooooooooooooooooonooooooo 


C+ 

SUBROUTINE  CURRNT(IUNIT,NEL,CRNT) 


*  * 


*  SUBROUTINE  CURRNTRBAY 

4c 


* 

★ 


4r**4r**4r*4r*4r4r**4r*4r*4r*4r4r*4r4r*4r4r*4r*4f4r***4f**4t4r4r***4r**4c*4r**4t4c4c***4r*4r4f4r4t*4c*4t4c 


AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  14-JUNE-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: : SPACE: [ BERG. ARRAY JCURRNTRBAY. FOR 

CALLING  ROUTINE:  @MV7 7 70 :: SPACE: (BERG. ARRAY) GEN_ARRAY.COM 

SUBROUTINES  CALLED:  RANDG  -  generates  a  single  value  of  a  set  of 

random  numbers  which  falls  within  a 
Gaussian  distribution  of  specified 
mean  value  and  width. 

COMPILE  INSTRUCTIONS:  $  FORTRAN  CURRNTRBAY 

LINK/LOAD  INSTRUCTIONS(TKB):  $  LINK  'MAIN' ,ARRAY_SBR, 'ELPOS' , 

CURRNT_RBAY , ' ELFFLD' 

PARENT  PROGRAM:  ARRAYSBR. FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  calculates  a  set  of  random  current  amplitude  and 
phase  values  with  a  Gaussian  distribution  of  specified  mean  value  and 
width  for  the  set  of  18  Kickapoo  complex  bays. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  READ 

-  mean  current  at  array  element  terminal  for  a  specific 
all  bays 

-  current  amplitude  sigma 

-  current  phase  sigma 

2.  WRITE 

-  mean  current  at  array  element  terminal  for  a  specific 
all  bays 

-  current  amplitude  sigma 

-  current  phase  sigma 

3.  DO 

for  each  bay 


CALL 

-  random  number  for  current  amplitude  within 
specified  Gaussian  distribution. 

-  random  number  for  current  amplitude  within 


DO 


for  each  element 

Assign  complex  current  value. 


oooooooooooooooooooooooonooooooooooooooooooooooooocjooooooorjo 


ENDDO 


WRITE 

-  bay  # 

-  current  amplitude 

-  current  phase 


ENDDO 
4.  RETURN 


INPUTS 

EXPLICIT! 

lUNIT  -  output  FORTRAN  unit  number 
NEL  -  #  of  radiating  elements 

F0R008  -  CURRNTRBAY.INP 

AMPSIG  -  Gaussian  value  of  sigma  for  current  amplitudes 
CTMEAN  -  mean  maximum  current  value  at  array  elements' 
terminals  (amps) 

PHSSIG  -  Gaussian  value  of  sigma  for  current  phases 

IMPLICIT:  NONE 

OUTPUTS 

EXPLICIT! 

CRNT(K)  -  complex  current  value  for  element  K 
FOR'IUNIT'  -  'MAIN '.OUT 


AMPSIG 

- 

Gaussian  value  of  sigma  for  current  amplitudes 
(amperes) 

CTMEAN 

mean  maximum  current  value  at  array  elements' 
terminals  (amperes) 

PHSSIG 

Gaussian  value  of  sigma  for  current  phases 
(degrees) 

For 

each  bay. 

I 

- 

bay  # 

CTAMP 

current  phase  at  array  element  terminal 
(amperes) 

CTPHSD 

current  amplitude  at  array  element  terminal 
(degrees) 

IMPLICIT: 

NONE 

OTHER  MAJOR 

VARIABLES: 

CTPHS 

-  current  amplitude  at  array  element  terminal  (radians) 

IXl 

-  seed 

value  for  current  amplitude 

lYl 

-  seed 

value  for  current  amplitude 

1X2 

-  seed 

value  for  current  phase 

IY2 

-  seed 

value  for  current  phase 

SYSTEM  STATE  CHANGES:  NONE 


Declare  variables. 


ooo  <-joo  nooo  ooo  ooo  ooo 


IMPLICIT  REAL*8(A-H,0-Z) 
C0MPLEX*16  CIM 
C0MPLEX*16  CRNT(2556) 

Define  constants. 


PI*3.1A1592653589793 
CIM.DCMPLX(0. ,1.) 
CFDR=PI/180. 

Read  input  values. 

READ (8,*)  CTMEAN 
READ(8,*)  AMPSIG 
READ(8,*)  PHSSIG 

Write  input  values. 

WRITE (lUNIT, 1003)  CTMEAN 
WRITE(IUNIT,1004)  AMPSIG 
WRITE<IUNIT,1005)  PHSSIG 


PHSSIG=PHSSIG*CFDR 


Set  random  generator  seed  values. 

1X1=0 

IY1=0 

1X2=1 

1X2=1 


Use  random  generator  to  determine  current  values  of  each  bay. 


L=0 

DO  1=1,18 

CALL  RANDG( IXl , lYl , AMPSIG , CTMEAN, CTAMP) 
CALL  RANDG( 1X2, I Y2, PHSSIG, 0.,CTPHS) 
IF(I.NE.8)  THEN 
DO  J=l,144 
L=L+1 

CENT ( L ) =CTAMP*CDEXP ( CIM*CTPHS ) 

ENDDO 
ELSE 
DO  K=l,2 
DO  J=l,54 
L=L>1 

CENT ( L ) =CTAMP*CDEXP ( Cl M*CTPHS ) 

ENDDO 

ENDDO 

ENDIF 

CTPHSD=CTPHS/CFDR 
WRITE(IUNIT,1006)  I ,CTAMP,CTPHSD 
ENDDO 


Format  statements. 

1003  F0RMAT('0' ,'MEAN  CURRENT  =  'F5.3'  amps') 

1004  FORMAT (IX, 'AMPLITUDE  SIGMA  =  'F5.3'  amps') 

1005  F0RMAT( IX, 'PHASE  SIGMA  =  'F5.3'  degrees') 

1006  F0RMAT(1X, 'BAY  ',12,'  CURRENT  AMPLITUDE  ;  ',F4.2,'  amps 


+CURRENT  PHASE  :  ',P8.3,'  degrees') 

RETURN 

END 

INCLUDE  ' [BERG. ARRAYJRANDG. FOR/LIST' 

C*************************************************-*!********************* 


oooooonooooonoonooooooooonoooooooooooooononooooooooooooooo 


C+ 

SUBROUTINE  CURRNT(IUNIT,NEL,CRNT) 


*********************************************************************** 
*  * 


*  SUBROUTINE  CURRNT_RSBY 

* 


■k 

* 


********************************************************************** 


AUTHOR;  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  06-0CT0BER-1988 

LANGUAGE:  VAX  FORTRAN 

FILE;  MV7770; :SPACE: [ BERG. ARRAY JCURRNTRSBY. FOR 

CALLING  ROUTINE:  @MV7 7 70 ;; SPACE; [BERG. ARRAY] GEN_ARRAY.COM 

SUBROUTINES  CALLED:  NONE 

COMPILE  INSTRUCTIONS:  $  FORTRAN  CURRNTRSBY 

LINK/LOAD  INSTRUCTIONS (TKB);  $  LINK  'MAIN',  ARRAY_SBR , ' ELPOS ' , 

CURRNTRSBY, ' ELFFLD' 

PARENT  PROGRAM;  ARRA YSBR . FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  returns  a  complex  current  value  for  each  dipole 
in  the  Kickapoo  Complex  from  an  input  set  of  average  bay  amplitude 
and  phase  values.  The  dipoles'  current  phases  are  randomly 
distributed  about  the  average  bay  value.  The  distribution  is 
Gaussian. 

PROGRAM  ALGORITHM  (PSEUDOCODE); 

1.  READ 

-  Gaussian  value  of  sigma  for  current  amplitudes 

-  Gaussian  value  of  sigma  for  current  phases 

2.  WRITE 

-  Gaussian  value  of  sigma  for  current  amplitudes 

-  Gaussian  value  of  sigma  for  current  phases 

3.  DO 

for  each  bay 
READ 

-  average  current  amplitude. 

-  average  current  phase. 

ENDDO 

4.  DO 

for  each  bay 

Set  random  number  generator  seeds. 

ENDDO 

5.  DO 


for  each  bay 


ooooonoaooooooooooooooonoooooonoooooonooooooooooooooooooooo 


DO 

for  each  element 
CALL 

random  number  generator 
Calculate  complex  current. 

ENDDO 

BNDDO 

6.  RETURN 

INPUTS 

EXPLICIT: 

lUNIT  -  output  FORTRAN  unit  number 
NEL  -  #  of  radiating  elements 

F0R008  -  CURRNTRSBY.INP 

AMPSIG  -  Gaussian  value  of  sigma  for  current 

amplitudes 

PHSSIG  -  Gaussian  value  of  sigma  for  current 

phases 

BCTAMP(I)  -  average  current  amplitude  at  array 

element  terminal  for  bay  I 

BCTPHS(I)  -  average  current  phase  at  array  element 

terminal  for  bay  I 

IMPLICIT:  NONE 

OUTPUTS 

EXPLICIT: 

CRNT(K)  -  complex  current  value  for  element  K 

FOR'IUNIT'  -  CURRNT_RSBY.INP 

AMPSIG  -  Gaussian  value  of  sigma  for  current 

amplitudes 

PHSSIG  -  Gaussian  value  of  sigpna  for  current 

phases 

IMPLICIT:  NONE 
OTHER  MAJOR  VARIABLES: 

CFDR  -  conversion  factor;  degrees  to  radians 
CTAMP  -  current  phase  at  array  element  terminal 
CTPHS  -  current  amplitude  at  array  element  terminal 
1X1(1)  -  seed  value  for  current  amplitude  for  bay  I 

lYl(I)  -  seed  value  for  current  amplitude  for  bay  I 

1X2(1)  -  seed  value  for  current  phase  for  bay  I 

IY2(I)  -  seed  value  for  current  phase  for  bay  I 

SYSTEM  STATE  CHANGES:  NONE 


Declare  variables. 


IMPLICIT  REAL*8(A-H,0-Z) 


non  non  oooo  o  ooo  ooo  ooo 


I 

C0MPLEX*16  CIM 
C0MPLEX*16  CRNT(2556) 

DIMENSION  IXl ( 18 ) , 1X2 ( 18 ) , I Y1 ( 18 ) , I Y2 ( 18 ) , BCTAMP( 18 ) , BCTPHS( 18 ) 

Define  constants. 

PI=3. 141592653589793 
PI2=.PI/2. 

CIM=DCMPLX(0. ,1.) 

CFDR*PI/180. 


Read  input  values. 

READ(8,*)  AMPSIG 
READ(8,*)  PHSSIG 


Write  input  values. 

WRITE(IUNIT,1004)  AMPSIG 
WRITE (lUNIT, 1005)  PHSSIG 

PHSSIG»PHSSIG*CFDR 

Read  dipole  current  values  for  each  element  in  each  bay. 

Convert  phase  from  degrees  to  radians 

DO  1=1,18 

READ(8,*)  BCTAMP(I),BCTPHS(I) 

BCTPHS<I)  =  BCTPHS(I)  *  CFDR 
ENDDO 

Set  random  generator  seed  values. 

DO  1=1,18 
IX1(I)=I 
IY1(I)=I+1 
IX2(I)=2*I 
IY2(I)=2*I+1 
ENDDO 

Use  random  generator  to  determine  current  values  of  each  element. 


L«0 

DO  1=1,18 
IF(I.NE.8)  THEN 
DO  J=l,144 
L=L-fl 

CALL  RANDG (1X1(1), lYl(I), AMPSIG , BCTAMP ( I ) , CTAMP ) 
CALL  RANDG( 1X2 ( I ) , I Y2 ( I ) , PHSSIG , BCTPHS ( I ) , CTPHS ) 
CRNT(L)=CTAMP*CDEXP(CIM*CTPHS) 

ENDDO 
ELSE 
DO  K-1,2 
DO  J=l,54 
L=L+1 

CALL  RANDG( 1X1 ( I ) , I Y1 ( I ) , AMPSIG , BCTAMP( 8 ) , CTAMP ) 
CALL  RANDG( 1X2 ( I ) , IY2 ( I ) , PHSSIG , BCTPHS(8 ) , CTPHS) 
CRNT( L ) »CTAMP*CDEXP ( CIH*CTPHS ) 

ENDDO 

ENDDO 


o  o  o 


ENDIF 

ENDDO 


Format  statements. 

1003  FORMAT('0','MEAN  CURRENT  =  'F5.3'  amps') 

1004  F0RMAT( IX, 'AMPLITUDE  SIGMA  =  'F5.3'  amps') 

1005  F0RMAT( IX, 'PHASE  SIGMA  =  'F5.3'  degrees') 

RETURN 

END 

INCLUDE  ' [ BERG . ARRAY ] RANDG . FOR/LIST ' 

Qiticititicikiiriiitific'kikititificiiciciriticifitieicit-kiciririeicitititicitititititititititititieitit'kiir'k'kitir'k'kif'k'kitie'kieieieir'kir 


oooooooooononoooonooooooooooonooooooooooooooooorjooriooooooo 


C+ 


SUBROUTINE  CURRNT(IUNIT,NEL,CRNT) 


•k  * 

*  SUBROUTINE  CURRNTSBAY  * 

*  ★ 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk’kk'k'k'k'k'k'k'kit'k'k'k'k'k’kitic'k-k'k'k'k'k’k'k'kk'k'k’k'kk'k'kieic 

AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  04-OCTOBER-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770:  .‘SPACE:  [BERG. ARRAY JCURRNT  SBAY. FOR 

CALLING  ROUTINE:  @MV7 7 70 :: SPACE: [BERG.ARRAY1GEN_ARRAY.COM 

SUBROUTINES  CALLED:  NONE 

COMPILE  INSTRUCTIONS:  $  FORTRAN  CURRNTSBAY 

LINK/LOAD  INSTRUCTIONS (TKB):  $  LINK  'MAIN',  ARRAYSBR, 'ELPOS' , 

CURRNTSBAY , ' ELFFLD' 

PARENT  PROGRAM:  ARRAYSBR . FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  returns  a  complex  current  value  for  each  dipole 
in  the  Kickapoo  Complex  from  an  input  set  of  average  bay  amplitude 
and  phase  values.  The  dipoles  in  each  bay  have  the  same  complex 
current  as  the  bay  average. 

PROGRAM  ALGORITHM  (PSEUDOCODE); 

1.  DO 

for  each  bay 
READ 

-  current  amplitude  of  each  dipole 

-  current  phase  of  each  dipole 

ENDDO 

2.  DO 

for  each  element 

-  assign  complex  current  value 

ENDDO 

3.  RETURN 


INPUTS 

EXPLICIT; 

lUNIT  -  output  FORTRAN  unit  number 
NEL  -  #  of  radiating  elements 

F0R008  -  CURRNT  SBAY.INP 

CTAMP(iy  -  current  amplitude  of  each  dipole  in 

bay  I  (amperes) 


ooo  oooo  ooo  rj  o  o  o  o  o  o  o  o  o  o  n  o  o  o  o  o  o  n  o  o  o  o  o  o  o  o  o 


CTPHS(I) 


-  current  phase  of  each  dipole  in  bay  I 
(degrees) 


IMPLICIT:  NONE 

OUTPUTS 

EXPLICIT: 

CRNT(K)  -  complex  current  value  for  element  K 

FOR'IUNIT'  -  CURRNTSBAY.INP 

I  -  bay  # 

CTAMP(I)  -  current  amplitude  of  each  dipole  in 

bay  I  (amperes) 

CTPHSD  -  bay  phase  in  degrees 

IMPLICIT:  NONE 
OTHER  MAJOR  VARIABLES: 

CFDR  -  conversion  factor:  degrees  to  radians 
CTPHSD  -  bay  phase  in  degrees 

SYSTEM  STATE  CHANGES:  NONE 


Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 
COMPLEX* 16  CIM 
C0MPLEX*16  CRNT(2556) 
DIMENSION  CTPHS(18),CTAMP(18) 


Define  constants. 

PI  =  3.1A1592653589793 
CIM  =  DCMPLX(0. ,1.) 
CFDR  =  PI/180. 


Read  dipole  current  values  for  each  element  in  each  bay. 
Convert  phase  from  degrees  to  radians 

DO  1=1,18 

READ(8,*)  CTAMP(I),CTPHS(I) 

CTPHS(I)  =  CTPHS(I)  *  CFDR 
ENDDO 

Assign  complex  current  value  to  each  dipole  in  each  bay. 


L=0 

DO  1=1,18 
IF(I.NE.8)  THEN 
DO  J=l,144 
L-L+1 

CRNT(L)  =  CTAMP(I)  *  CDEXP(CIM*CTPHS(I)) 
ENDDO 
ELSE 

DO  K=l,2 
DO  J=l,54 
L=L+1 


non  o  o  o 


CRNT(L)  =  CTAMP(I)  *  CDEXP(CIM*CTPHS(I) ) 
ENDDO 
ENODO 
ENDIF 

Convert  bay  phase  to  degrees. 

CTPHSD=CTPHS ( I ) /CFDR 

Write  dipoles'  phase  and  amplitude  for  each  bay. 

WRITE(IUNIT,1006)  I,CTAMP(I),CTPHSD 
ENDDO 
C 

1003  F0RMAT('0','MEAN  CURRENT  =  'F5.3'  amps') 

1004  F0RMAT( IX, 'AMPLITUDE  SIGMA  =  'F5.3'  amps') 

1005  F0RMAT( IX, 'PHASE  SIGMA  =  'F5.3'  degrees') 

1006  F0RMAT(1X,'BAY  ',12,'  CURRENT  AMPLITUDE  :  ',F4.2 
+CURRENT  PHASE  :  ',F8.3,'  degrees') 

RETURN 

END 


'  amps 


ooonoooooooooooooooooooooonoooooonoooooooooooooooooooooooo 


SUBROUTINE  CURRNT(IUNIT,NEL,CRNT) 


♦it******************************************************************** 
*  * 

*  SUBROUTINE  CURRNTSTND  * 

*  * 
********************************************************************** 


AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  15-MARCH-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: :SPACE: ( BERG. ARRAY JCURRNTSTND. FOR 

CALLING  ROUTINE:  @MV7 7 70 :: SPACE: [BERG.ARRAY1GEN_ARRAY.COM 

SUBROUTINES  CALLED:  RANDG  -  generates  a  single  value  of  a  set  of 

random  numbers  which  falls  within  a 
Gaussian  distribution  of  specified 
mean  value  and  width. 

COMPILE  INSTRUCTIONS:  $  FORTRAN  CURRNTSTND 

LINK/LOAD  INSTRUCTIONS(TKB):  $  LINK  'MAINSARRAY  SBR, 'ELPOS' , 

CURRNT_STND,  'ELFFLD' 

PARENT  PROGRAM:  ARRAYSBR. FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  calculates  a  set  of  random  current  amplitude  and 
phase  values  with  a  Gaussian  distribution  of  specified  mean  value  and 
width. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  READ 

-  mean  current  at  array  element  terminal 

-  current  amplitude  sigma 

-  current  phase  sigma 


2.  WRITE 

-  mean  current  at  array  element  terminal 

-  current  amplitude  sigma 

-  current  phase  sigma 


3.  DO 

for  each  element 
CALL 

-  random  number  for  current  amplitude  within 
specified  Gaussian  distribution. 

-  random  number  for  current  amplitude  within 
specified  Gaussian  distribution. 

ENDDO 

4.  RETURN 


INPUTS 

EXPLICIT; 


noo  ooo  ooo  o  o  o  o  n  o  o  o  o  o  o  o  n  o  o  o  n  o  o  o  o  o  o  o  o  o  o  Cl  o  o  o  o  o  n  o  o  o  o  o 


lUNIT  -  output  FORTRAN  unit  number 
NEL  -  #  of  radiating  elements 


F0R008  -  CURRNT_STND.INP 

AMPSIG  -  Gaussian  value  of  sigma  for  current  amplitudes 
(amperes) 

CTMEAN  -  mean  maximum  current  value  at  array  elements' 
terminals  (amperes) 

PHSSIG  -  Gaussian  value  of  sigma  for  current  phases 
(degrees) 

IMPLICIT;  NONE 


OUTPUTS 

EXPLICIT: 

CRNT(K)  -  complex  current  value  for  element  K  (amperes) 


FOR'IUNIT'  -  'MAIN'.INP 

AMPSIG  -  Gaussian  value  of  sigma  for  current  amplitudes 
(amperes) 

CTMEAN  -  mean  maximum  current  value  at  array  elements' 
terminals  (amperes) 

PHSSIG  -  Gaussian  value  of  sigma  for  current  phases 
(degrees) 

IMPLICIT;  NONE 
OTHER  MAJOR  VARIABLES: 

CTAMP  -  current  phase  at  array  element  terminal 
CTPHS  -  current  amplitude  at  array  element  terminal 
IXl  -  seed  value  for  current  amplitude 

lYl  -  seed  value  for  current  amplitude 

1X2  -  seed  value  for  current  phase 

IY2  -  seed  value  for  current  phase 

SYSTEM  STATE  CHANGES:  NONE 


IMPLICIT  REAL*8(A-H,0-Z) 
C0MPLEX*16  CIM 
C0MPLEX*16  CRNT(2592) 

Define  constants. 

PI=3. 141592653589793 

CIM=DCMPLX(0.,1.) 

CFDR=PI/180. 

Read  input  values. 

READ(8,*)  CTMEAN 
READ(8,*)  AMPSIG 
READ(8,*)  FVHM 

Write  input  values. 

WRITE (lUNIT, 1003)  CTMEAN 
WRITE (lUNIT, 1004)  AMPSIG 
WRITE(IUNIT,1005)  FWHM 


ooo  ooo  ooo 


Convert  FVHM  (degrees)  to  phase  sigma  (radians) 

PHSSIG  =  FWHM/2./DSQRT(2.DO  *  DL0G(2.D0))*CFDR 

Set  random  generator  seed  values. 

IXl-0 
IY1=0 
1X2=1 
IY2=1 

Use  random  generator  to  determine  current  values  of  each  element. 

DO  K=1,NEL 

CALL  RANDG(IX1 , lYl , AMPSIG , CTMEAN, CTAMP) 

CALL  RANDG( 1X2, I Y2, PHSSIG, 0.,CTPHS) 

CRNT (K) =CTAMP*CDEXP( CIM*CTPHS ) 

ENDDO 
C 

1003  F0RMAT('0','MEAN  CURRENT  =  'F5.3'  amps') 
lOOA  FORMAT (IX, 'AMPLITUDE  SIGMA  =  'F5.3'  amps') 

1005  F0RMAT( IX, 'PHASE  FWHM  =  'F7.3'  degrees') 

RETURN 

END 

INCLUDE  ' [BERG. ARRAYJRANDG. FOR/LIST' 

Q'k’k^irifititie^it'kirieie'k'kic'^ieiciric'k^r-^'kie-ie'kir'k-k’k-kic'k'k'k'k-k’k'k'k'k'k’kie-kieicit’k'kifie'k’k'k'k'k’k'k'k'k'k’k'k'k'k'kit 


oooooooonooooononoooooooonooooooooociooooonooooooociooooooooo 


SUBROUTINE  RANDG ( IX , I Y , SIGMA , RMEAN , VAL ) 


**********************  Jk**************************************************** 
*  * 


* 

* 


SUBROUTINE  RANDG  * 

* 


**********<t***********^Hr*************************************************** 


AUTHOR: 

DATE: 

LANGUAGE: 

FILE: 


Dr.  E.  James  Wadiak 
26-JAN-1988 

FORTRAN  ANSI-77  (VAX/VMS  operating  system) 
VX7  7  70 : : SPACE : [ WADIAK . LSQ . SIM ] RANDG . FOR 
MV7770:  .‘SPACE:  [BERG. ARRAY] RANDG. FOR 


CALLING  ROUTINES: 


SUBROUTINES  CALLED: 


COMPILE  INSTRUCTIONS: 


ERROR. FOR 
MULTLSQ.FOR 
CURRNTSTND. FOR 

RANDU  -  VAX  library  subroutine  which  returns 
a  random  number  uniformly  distributed 
between  0  and  1. 

via  INCLUDE  statement  in  parent  program. 


LINK/LOAD  INSTRUCTIONS:  via  INCLUDE  statement  in  parent  program. 


PARENT  PROGRAMS: 


SIMDAT . FOR ,  MULTLSQ . FOR 
CURRNT  STND.FOR 


PROGRAM  DESCRIPTION: 


This  subroutine  applies  the  Central  Limit  Theorem  to  derive  a  random 
number  VAL  whose  distribution  is  Gaussian  with  a  characteristic  dispersion 
of  SIGMA  and  a  mean  value  of  RMEAN. 


PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  Sum  12  random  numbers  uniformly  distributed  between  0  and  1.  The 
resultant  number  is  Gausslan-distributed  about  the  expection  value  of 
<6>  with  a  standard  deviation  of  1. 

2.  Multiply  the  deviation  from  the  expectation  value  times  the  desired 
standard  deviation,  and  add  the  desired  mean.  This  produces  a  random 
number  with  the  desired  properties. 

3.  RETURN  to  the  calling  program. 

INPUTS  EXPLICIT  (via  arguments  to  the  CALL  statement): 

IX  -  random  number  generator  seed. 

lY  -  random  number  generator  seed. 

RMEAN  -  desired  mean  of  the  output  random  number. 

SIGMA  -  desired  standard  deviation  of  the  output  random  number. 


IMPLICIT:  NONE 

OUTPUTS  EXPLICIT  (via  the  arguments  to  the  CALL  statement): 


oonofjooooooooooooo 


IX  -  new  seed  for  next  call  to  RANDG. 
lY  -  new  seed  for  next  call  to  RANDG. 

VAL  -  random  number  with  the  desired  distribution  properties. 


IMPLICIT:  NONE 

MAJOR  VARIABLES: 

A  -  sum  of  the  12  uniformly  distributed  random  numbers. 
RMEAN  -  desired  mean  of  output  random  number. 

SIGMA  -  desired  standard  deviation  of  output  random  number. 
VAL  -  output  random  number  with  desired  properties. 


MODIFIED: 


Qicieicic'kif’kiticie'kicieiticitieicieicititieieitieicicitif’kiticificiciticicicicic'kieiticiticiciticicic'k'k'kif'k’kitic'ii'k'k'kitic-k'k'k'k-k'k-k'k'k’k'k 

IMPLICIT  REAL*8  (A-H,0-Z) 

REAL*4  Y 
A  =  0.0 
DO  1=1,12 

CALL  RANDU(IX,IY,Y) 

A  =  A  +  Y 
ENDDO 

VAL  =(  A  -  6.0  )  *  SIGMA  +  RMEAN 

RETURN 

END 


oonoooooooooooooooooooooooooooooooooooooooooocioooooooooooo 


c+ 

SUBROUTINE  ELFFLD( PHI , THETA , I FLAG , lUNIT , ETA , GAMMA , EFX , EFY , EFZ ) 

ic  * 

*  SUBROUTINE  ELFFLDAHGP  * 

*  * 
********************************************************************** 


AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  23-NOVEMBER-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: : SPACE: [BERG. ARRAY JELPOSAHGP 

CALLING  ROUTINE:  @MV7 7 70:  .‘SPACE:  IBERG.ARRAYJGEN_ARRAY.COM 

SUBROUTINES  CALLED:  NONE 

COMPILE  INSTRUCTIONS:  $  FORTRAN  ELFFLDAHGP 

LINK/LOAD  INSTRUCTIONS(TKB);  $  LINK  'MAIN', ARRAY  SBR,'ELPOS', 

' CURRNT ' , ELFFLD_AHGP 

PARENT  PROGRAM:  ARRAYSBR . FOR 
PROGRAM  DESCRIPTION: 

This  subroutine  calculates  the  polar  components  of  the  range 
independent  far  electric  field  for  the  NAVSPASUR  half-wave  arrowhead 
dipole  transmitter  element  over  an  infinite  ground  screen. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  Calculate  the  far  electric  field  for  a  specified  angle. 

2.  RETURN 


INPUTS 

EXPLICIT: 

ETA  -  intrinsic  impedance  of  ambient  medium 

IFLAG  -  flag  :  0  =>  first  time  called 

1  =>  called  previously 
lUNIT  -  output  unit  number 
PHI  -  angle  phi  (radians)  wrt  element 
THETA  -  angle  theta  (radians)  wrt  element 

IMPLICIT:  NONE 


OUTPUTS 

EXPLICIT: 

EFX  -  X  component  of  far  electric  field  with  range  and 
current  dependence  suppressed. 

EFY  -  X  component  of  far  electric  field  with  range  and 
current  dependence  suppressed. 

EFZ  -  X  component  of  far  electric  field  with  range  and 
current  dependence  suppressed. 


IMPLICIT:  NONE 


OTHER  MAJOR  VARIABLES: 


OOO  O  O  O  OOO  O  O  O  O  rj  O  O  O  O  fJ  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o 


ANGFTRN  -  primary  angle  dependent  term  with  negative  term 
ANGFTRP  -  primary  angle  dependent  term  with  positive  term 
CIM  -  complex  1 

EFO  -  constant  factor 

EFF  -  range  Independent  phi  component  of  the  far  electric 
field 

EFT  -  range  Independent  theta  component  of  the  far  electric 
field 

EXPNN  -  nondlrectlonal  term  with  two  negative  factors 

EXPNP  -  nondlrectlonal  term  with  negative  and  positive  factors 

EXPPN  -  nondlrectlonal  term  with  positive  and  negative  factors 

EXPPP  -  nondlrectlonal  term  with  two  positive  factors 

IMGFTR  -  Image  dipole  factor 

PHIFTRN  -  phi  component  factor  with  negative  term 
PHIFTRP  -  phi  component  factor  with  positive  term 
THTFTRN  -  theta  component  factor  with  negative  term 

THTFTRP  -  theta  component  factor  with  positive  term 

SYSTEM  STATE  CHANGES:  NONE 


Declare  variables. 


IMPLICIT  REAL*8(A-H,0-Z) 

COMPLEX* 16  ETA , GAMMA , EFT , EFP , EFX , EFY, EFZ , EFO 
COMPLEX* 16  CIM , EXPNN , EXPNP , EXPPP , EXPPN , IMGFTR 

Define  constants. 

DATA  EO , UO/8 . 8541879357607759D-12 , 1 . 2566370614355172D-6/ 
DATA  PI/3.141592653589793/ 

PI2=PI/2. 

TV0PI=2.*PI 

CIM=DCMPLX(0.,1.) 

CFIM*. 3048/12. 

CFDR-PI/180. 

0MEGA=2 . *PI*216 . 980*10 . **6 
GAMMA=.OMEGA*DSQRT  (  U0*E0  )  *CIM 
ETA=DSQRT(U0/E0) 

DELTA=55.*CFDR 
EF0.CIM*ETA/2 . /TWOPI 


Calculate  sines  and  cosines. 

CSPHI=DC0S(PHI) 
SNPHI.DSIN(PHI) 
CSTHET=.DC0S(  THETA) 
SNTHET=DSIN(THETA) 
CSDELT=DC0S( DELTA) 
SNDELT.DSIN( DELTA) 


Adjust  for  precision  errors. 

IP(DABS(CSPHI).LT.1.D-15)  CSPHI=0. 
IF(DABS(SNPHI).LT.1.D-15)  SNPHI=0. 

I F ( DABS ( CSTHET ) . LT . 1 . D- 1 5 )  CSTHET=0 . 
I F ( DAB S ( SNTHET ) . LT . 1 . D- 1 5 )  SNTHET=0 . 


ooo  ooo  o n o  o o o  o o o  ooo  oo 


Calculate  angle  dependent  terms. 

ANGFTRP=.SNDELT*CSTHET+CSDELT*SNTHET*CSPHI 

ANGPTRN-SNDELT*CSTHET-CSDELT*SNTHET*CSPHI 


Calculate  nondirectional  terms. 

EXPNN-CDEXP ( -CIM*PI2*ANGPTRN ) 
EXPNP.CDEXP( -CIM*PI2*ANGFTRP) 
EXPPP.CDEXP ( CIM*PI 2*ANGPTRP ) 
EXPPN=CDEXP ( CIM*PI2*ANGPTRN ) 


Calculate  directional  component  factors. 

IP(ANGPTRP.NE.l.)  THEN 

THTPTRP=( SNDELT*SNTHET-CSDELT*CSTHET*CSPHI ) / ( 1 . -( ANGFTRP)**2 . ) 

PHIPTRP=CSDELT*SNPHI/ ( 1 . - ( ANGFTRP ) **2 . ) 

ELSE 

THTFTRP=1. 

PHIFTRP=1. 

ENDIF 

IF(ANGFTRN.NE.l.)  THEN 

THTFTRN*- ( SNDELT*SNTHET+CSDELT*CSTHET*CSPHI )/(!.-( ANGFTRN ) **2 . ) 

PHIFTRN=CSDELT*SNPHI/( 1 . -(ANGFTRN) **2 . ) 

ELSE 

THTFTRN.-l. 

PHIFTRN*!, 

ENDIF 

Calculate  image  factor. 

IMGFTR=CDEXP ( -CIM*3 . *PI 2*CSTHET ) 

Calculate  far  electric  field  components. 

EFT=EF0* ( ( EXPNP+CIM* ANGFTRP ) *THTFTRP 
+  +  (EXPNN+CIM*ANGFTRN)*THTFTRN 

+  -  (EXPPN-CIM*ANGFTRN)*IMGFTR*THTFTRN 

+  -  (EXPPP-CIM*ANGFTRP)*IMGFTR*THTFTRP) 

EFP=EFO*((EXPNP+CIM*ANGFTRP)*PHIFTRP 
+  +  (EXPNN+CIM*ANGFTRN)*PHIFTRN 

+  -  (EXPPN-CIM*ANGFTRN)*IMGFTR*PHIFTRN 

+  -  (EXPPP-CIM*ANGFTRP)*IMGFTR*PHIFTRP) 


Convert  spherical  components  to  cartesian  components. 

EFX=EFT*CSTHET*CSPHI-EFP*SNPHI 

EPY=EFT*CSTHET*SNPHI+EFP*CSPHI 

EFZ=-EFT*SNTHET 


Return  to  subroutine. 

RETURN 
END 


ooooooooooooooooonooooonooooooooooonoooooooooooooooooooooo 


C+ 

SUBROUTINE  ELFFLD( PHI , THETA , IFLAG , lUNIT , ETA , GAMMA , EFX , EFY , EFZ ) 


it  it 


*  SUBROUTINE  ELFFLDAHHW 

* 


■k 

it 


AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  23-NOVEMBER-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: : SPACE: (BERG. ARRAY I ELPOSAHHV 

CALLING  ROUTINE :  @MV7  7  70 : : SPACE ; [ BERG . ARRAY I GEN  ARRAY . COM 

SUBROUTINES  CALLED:  NONE 

COMPILE  INSTRUCTIONS:  $  FORTRAN  ELFFLD_AHHW 

LINK/LOAD  INSTRUCTIONS (TKB):  $  LINK  'MAIN' ,ARRAY_SBR, 'ELPOS' , 

'CURRNT' .ELFFLDAHHW 

PARENT  PROGRAM:  ARRAYSBR . FOR 
PROGRAM  DESCRIPTION: 

This  subroutine  calculates  the  polar  components  of  the  range 
Independent  far  electric  field  for  an  half-wave  arrowhead  dipole 
NAVSPASUR  transmitter  element  in  free  space. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  Calculate  the  far  electric  field  for  a  specified  angle. 

2.  RETURN 

INPUTS 

EXPLICIT: 

ETA  -  intrinsic  impedance  of  ambient  medium 

IFLAG  -  flag  :  0  =>  first  time  called 

1  =>  called  previously 
lUNIT  -  output  unit  number 
PHI  -  angle  phi  (radians)  wrt  element 
THETA  -  angle  theta  (radians)  wrt  element 

IMPLICIT:  NONE 

OUTPUTS 

EXPLICIT; 

EFX  -  X  component  of  far  electric  field  with  range  and 
current  dependence  suppressed. 

EFY  -  X  component  of  far  electric  field  with  range  and 
current  dependence  suppressed. 

EFZ  -  X  component  of  far  electric  field  with  range  and 
current  dependence  suppressed. 

IMPLICIT:  NONE 

OTHER  MAJOR  VARIABLES: 

ANGFTRN  -  primary  angle  dependent  term  with  negative  term 


ooo  n  o  o  o  cj  o  non  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o 


ANGFTRP  -  primary  angle  dependent  term  with  positive  term 

CIM  -  complex  i 

EFO  -  constant  factor 

EFP  -  range  independent  phi  component  of  the  far  electric 
field 

EFT  -  range  independent  theta  component  of  the  far  electric 
field 

EXPNN  -  nondirectional  term  with  two  negative  factors 

EXPNP  -  nondirectional  term  with  negative  and  positive  factors 

PHIFTRN  -  phi  component  factor  with  negative  term 

PHIFTRP  -  phi  component  factor  with  positive  term 

THTFTRN  -  theta  component  factor  with  negative  term 

THTFTRP  -  theta  component  factor  with  positive  term 

SYSTEM  STATE  CHANGES:  NONE 


Declare  variables. 


IMPLICIT  REAL*8(A-H,0-Z) 

COMPLEX* 16  ETA , GAMMA , EFT , EFP , EFX , EFY , EFZ , EFO 
C0MPLEX*16  CIM, EXPNN, EXPNP 

Define  constants. 

DATA  E0,U0/8.8541879357607759D-12,1.2566370614355172D-6/ 
DATA  PI/3.141592653589793/ 

PI2=PI/2. 

TV0PI»2.*PI 
CIM=DCMPLX(0. ,1.) 

CFIM*. 3048/12. 

CFDR=PI/180. 

0MEGA=2 . *PI*216 . 980*10 . **6 
GAMMA=OMEGA*DSQRT ( U0*E0 ) *CIM 
ETA=DSQRT(U0/E0) 

DELTA=55.*CFDR 
EF0=CIM*ETA/2 . /TWOPI 


Calculate  sines  and  cosines. 

CSPHI=.DC0S(PHI) 
SNPHI.DSIN(PHI) 
CSTHET=DC0S (THETA ) 
SNTHET-DSIN<  THETA ) 
CSDELT.DC0S( DELTA) 
SNDELT=DSIN( DELTA) 


Adjust  for  precision  errors. 

I F ( DABS ( CSPHI ) . LT . 1 . D- 1 5 )  CSPHI=0 . 
IF(DABS( SNPHI ) . LT . 1 . D-15 )  SNPHI=0 . 

I F ( DABS ( CSTHET ) . LT . 1 . D- 1 5 )  CSTHET=0 . 
I F ( DAB S ( SNTHET ) . LT . 1 . D- 1 5 )  SNTHET=0 . 

Calculate  angle  dependent  terms. 


C 


ANGFTRP=SNDELT*CSTHET+CSDELT*SNTHET*CSPHI 

ANGFTRN-SNDELT*CSTHET-CSDELT*SNTHET*CSPHI 


ooo  non  ooo  oo 


Calculate  nondirectional  terms. 

EXPNN«CDEXP(-CIM*PI2*ANGFTRN) 
EXPNP=CDEXP ( -CIM*PI2*ANGFTRP ) 


Calculate  directional  component  factors. 

IF( ANGPTRP . NE . 1 . )THEN 

THTFTRP=( SNDELT*SNTHET-CSDELT*CSTHET*CSPHI )/ ( 1 . -ANGFTRP**2 . ) 
PHIFTRP=CSDELT*SNPHI/ ( 1 . -ANGFTRP**2 . ) 

ELSE 

THTFTRP=1. 

PHIFTRP=1. 

ENDIF 

I F ( ANGFTRN . NE . 1 . ) THEN 

THTFTRN.- ( SNDELT*SNTHET+CSDELT*CSTHET*CSPHI ) / ( 1 . -ANGFTRN**2 . ) 
PHIFTRN=CSDELT*SNPHI/ ( 1 . -ANGFTRN**2 . ) 

ELSE 

THTFTRN=-1. 

PHIPTRN=1. 

ENDIF 

Calculate  far  electric  field  components. 

EFT=EF0* ( ( EXPNP+CIM*ANGFTRP ) *THTFTRP 
+  +  (EXPNN+CIM*ANGFTRN)*THTFTRN) 

EFP=EF0* ( ( EXPNP+CIM*ANGPTRP ) *PHIFTRP 
+  +  (EXPNN+CIM*ANGPTRN)*PHIFTRN) 


Convert  spherical  components  to  cartesian  components. 

EFX=EFT*CSTHET*CSPHI-EFP*SNPHI 
EFY=EFT*CSTHET*SNPHI+EFP*CSPHI 
EFZ=-EFT*SNTHET 
C 

RETURN 

END 

C*********************************************************************** 


SUBROUTINE  ELFFLD( PHI , THETA , IFLAG , lUNIT , ETA , GAM , EFX , EFY , EFZ ) 

•k  k 

*  SUBROUTINE  ELFFLDAPRX  * 

*  * 
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AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE;  18-MAY-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770; :SPACE: (BERG.ARRAYJELFFLDAPRX.FOR 

CALLING  ROUTINE:  @MV7770: :SPACE: [BERG.ARRAYJGEN_ARRAY.COM 

SUBROUTINES  CALLED:  NONE 


COMPILE  INSTRUCTIONS: 


$  FORTRAN  ELFFLD  APRX 


LINK/LOAD  INSTRUCTIONS (TKB):  $  LINK  'MAIN' , ARRAY_SBR, 'ELPOS' , 

' CURRNT ' , ELFFLDAPRX 

PARENT  PROGRAM:  ARRAYSBR . FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  uses  a  polynomial  fit  to  the  actual  pattern  to 
calculate  the  range  independent  far  electric  field  for  a  specified 
direction  of  a  NAVSPASUR  arrowhead  dipole  with  unit  terminal  current 
placed  over  a  finite  thin  wire-grid  ground  screen.  This 
approximation  is  only  good  for  angles  of  three  degrees  or  less  off 
the  east-west  plane. 

In  the  region  within  three  degrees  of  the  east-west  plane,  each 
component  of  the  electric  field  can  be  split  into  east-west  factor 
and  a  north-south  factor.  For  the  x  and  z  components  the  north-south 
factor  is  one,  the  value  of  the  components  has  no  north-south 
dependence.  However,  the  y  components  has  both  an  east-west  and  a 
north-south  dependence. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 


1.  IF 


this  is  the  first  time  the  subroutine  is  called 


WRITE 


Element  name 


ENDIF 


2.  Convert  coordinates  to  the  coordinates  of  polynomial. 

3.  Calculate  cartesian  components  of  total  electric  field. 
A.  RETURN 


INPUTS 

EXPLICIT: 

IFLAG  -  flag  :  0  =>  first  time  called 
1  =>  called  previouly 
lUNIT  -  ouput  FOTRAN  unit  number 


ooo  oooooooooooofsonoonoonoooooooooooooooooooo 


PHI  -  standard  spherical  coordinate  phi  (radians) 

THETA  -  standard  spherical  coordinate  theta  (radians) 


IMPLICIT:  NONE 


OUTPUTS 

EXPLICIT: 

EFX  -  X  component  of  far  electric  field  from  element  with 
range  and  current  dependence  suppressed  (mks  units) 
EFY  -  y  component  of  far  electric  field  from  element  with 
range  and  current  dependence  suppressed  (mks  units) 
EFZ  -  z  component  of  far  electric  field  from  element  with 
range  and  current  dependence  suppressed  (mks  units) 
ETA  -  intrinsic  impedance  of  ambient  medium  (mks  units) 

GAM  -  complex  propagation  constant  of  ambient  medium  (mks 

units) 


IMPLICIT:  NONE 


OTHER  MAJOR  VARIABLES: 

ALPHA  -  projected  angle  onto  east-west  plane  wrt  vertical 

BETA  -  angle  away  from  plane 

EFXI  -  imaginary  part  of  x  component  of  electric  field 

EFXR  -  real  part  of  x  component  of  electric  field 

EFYEI  -  imaginaty  part  of  east-west  factor  of  y  component 

of  electric  field 

EFYER  -  real  valve  of  east-west  factor  of  y  component  of 
electric  5ield 

EFYNI  -  imaginary  part  of  north-south  factor  of  y  component 
of  electric  field 

EFYNR  -  real  value  of  north-south  factor  of  y  component  of 
electric  field 

EFZR  -  imaginary  part  of  z  component  of  electric  field 

EFZI  -  real  part  of  z  component  of  electric  field 

SYSTEM  STATE  CHANGES:  NONE 


Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 

C0MPLEX*16  EFX, EFY, EFZ 
C0MPLEX*16  ETA, GAM 

DIMENSION  A(15),B(12),C(12),D(12),E(A),F(4),G(15),H(12) 


Set  polynomial  coefficents. 

DATA  A  /  -48.81134500,  -3.32936269,  135.92066364,  -556.84675634, 

4.  -3415.26696738,  -507b. 32694090,  -320.07308383,  1066.81398596, 

+  -11351.79641405,  -21268.31842580,  -13250.76618528,  -230.58635200, 
+  3613.09026635,  1667.14825305,  245.32768571  / 

DATA  B  /  -46.24710906,  5.29885609,  289.74564581,  1550.08290961, 

+  8076.79186498,  30390.39129857,  65748.81389051,  83191.21282485, 

+  63449.26300416,  28885.86856)03,  7258.09465898,  776.92366304  / 
DATA  C  /  0.00373171,  0.33690632,  12,14493123,  89.90107435, 

+  734.90005930,  2583.98663359,  4633.35078175,  4795.42851482, 

+  2998.85124374,  1118.81035362,  228.54026027,  19.52962161  / 

DATA  D  /  0.00032473,  3.93567557,  0.02370856,  -48.14602902, 

+  -93.74715567,  -419.03535033,  -1479.97883333,  -2550.70395440, 


ooo  oon  oooo  onoo  ooo  ooo  ooo 


+  -2385.56411205,  -1260.71016825,  -356.54500172,  -42.15469253  / 
DATA  E  /  0.00017687,  57.62716404,  2.94733282,  -1019.55387357  / 
DATA  F  /  -0.00061399,  58.14454363,  -6.55235737,  -524.35506834  / 
DATA  G  /  -0.02134093,  -51,51615729,  -75.83463372,  -672.63905899, 

+  -4997.52158937,  -17519.54638209,  -31408,47680427, 

+  -26471.22647279,  -2914.04969906,  11745.75285317,  6870.78830840, 

+  -1398.86292882,  -2758.31171124,  -1034.36202167,  -133.09962066  / 
DATA  H  /  -0.04307622,  -51.33941125,  -122.98172857,  -1088.42410730, 
+  -6232.74003221,  -18844.25863408,  -30312.18101991, 

+  -26746.27006469,  -12462.69308608,  -2332.73449266,  207.80311051, 

+  103.85552955  / 


Write  element  name  the  first  time  the  subroutine  is  called. 

IF  (IFLAG.EQ.O)  THEN 
WRITE (lUNIT, 10) 

RETURN 

ENDIF 


Define  constants. 


ETA=DCMPLX (0.376730311E+03,0. OOOOOOOOOE+00 ) 
GAM=DCMPLX(0 . OOOOOOOOOE+00 , 0 . 454756456E+01 ) 
PI=3. 141592653589793 
CFDR=PI/180. 

Calculate  sines  and  cosines. 


SNTH=DSIN(THETA) 

CSTH=DC0S(THETA) 

SNPH=DSIN(PHI) 

CSPH=DC0S(PHI) 


Find  value  of  projected  angle  onto  east-west  plane  wrt  vertical. 
Determine  sign  factor. 


ALPHA=DATAN2 ( SNTH*CSPH , CSTH ) 
SIGNA=DSIGN( 1 . ODO , ALPHA) 
ALPHA=-DABS(ALPHA) 


Find  value  of  angle  away  from  plane. 
Determin  sign  factor. 


BETA=PI/2 . -DAC0S(SNTH*SNPH) 
SIGNB=DSIGN( 1 . ODO , BETA) 
BETA-DABS(BETA) 


Write  error  message  if  beta  is  too  large  (>  3  degrees) 

IF(BETA.GT.3.*CFDR)  THEN 
WRITE(IUNIT,11) 

RETURN 

ENDIF 


Set  intial  values  to  zero. 


EFXR=0. 

EFXI=0. 

EFYER=0. 

EFYEI=0. 


oooooo  noo  nooo 


I 

EFYNR=0. 

EFYNI=0. 

EFZR=0. 

EFZI=0. 

Calculate  real  and  imaginary  parts  of  north-south  and  east-west 
dependencies  of  cartesian  components  of  electic  field. 

DO  1=15, 1,-1 
EFXR=EFXR*ALPHA+A ( I ) 

EFZR=EFZR*ALPHA+G( I ) 

ENDDO 

DO  1=12, 1,-1 
EFXI =EFXI*ALPHA+B ( I ) 

EFZI =EFZI*ALPHA+H ( I ) 

EFYER=EFYER*ALPHA+C( I ) 

EFYEI =EFYEI*ALPHA+D ( I ) 

ENDDO 

DO  1=4, 1,-1 
EFYNR=EF YNR*BET A+E ( I ) 

EFYNI=EFYNI*BETA+F(I) 

ENDDO 

Combine  components  insuring  correct  sign. 

EFX=DCMPLX ( EFXR , EFXI ) 

EFY=DCMPLX( SIGNA*EFYER*SIGNB*EFYNR , SIGNA*EFYEI *SIGNB*EFYNI ) 
EFZ=DCMPLX( SIGNA*EFZR , SIGNA*EFZI ) 

Return  to  subroutine. 

RETURN 


Format  statements. 

10  F0RMAT('0' ,'NAVSPASUR  HALF-WAVE  ARROWHEAD  DIPOLE  (POLYNOMIAL 
+  FIT)') 

11  F0RMAT<'0' , 'APPROXIMATION  IS  NOT  VALID  FOR  THIS  ANGLE!!!!') 
END 


oonoooooooooonooooooooonooooooooooonooooooooonoooooooooooo 


C+ 

SUBROUTINE  ELFFLD( PHIPP , THETPP , IFLAG , lUNIT , ETA , GAMMA , EFX , EFY , EFZ ) 

★A******************************************************** ****** ****** 
*  * 

*  SUBROUTINE  ELFFLDRCVR  * 

ie  * 

ic-kiticiiitifitieiciticieitiriciiieicititificicificicitifiiieicific'k'kicic'k'k'k'k'k'k'k'k'k'k'k'kic'k'k'kic'k'k'kic'k'kicic'kic'k'kie'k'k 


AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  Ol-AUGUST-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: :SPACE: [ BERG . ARRAY ] ELPOSRCVR 

CALLING  ROUTINE :  @MV7770 : : SPACE : [ BERG . ARRAY IGEN_ARRAY. COM 

SUBROUTINES  CALLED:  NONE 

COMPILE  INSTRUCTIONS:  $  FORTRAN  ELFFLD_RCVR 

LINK/LOAD  INSTRUCTIONS(TKB):  $  LINK  'MAIN' , ARRAY_SBR, 'ELPOS' , 

' CURRNT ' , ELFFLDRCVR 

PARENT  PROGRAM:  ARRAYSBR . FOR 
PROGRAM  DESCRIPTION: 

This  subroutine  calculates  the  cartesian  components  of  the  range 
independent  far  electric  field  for  a  horizontal  half-wave  dipole  over 
an  infinite  ground  screen. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  Calculate  the  far  electric  field  for  a  specified  angle. 

2.  RETURN 


INPUTS 

EXPLICIT: 

IFLAG  -  flag  :  0  =>  first  time  called 
1  =>  called  previously 
lUNIT  -  output  FORTRAN  unit  number 
PHIPP  -  angle  phi  (radians)  wrt  element 
THETAPP  -  angle  theta  (radians)  wrt  element 


IMPLICIT:  NONE 


OUTPUTS 

EXPLICIT: 

EFX  -  X  component  of  far  electric  field  with  range  and 
current  dependence  suppressed,  (mks  units) 

EFY  -  y  component  of  far  electric  field  with  range  and 
current  dependence  suppressed,  (mks  units) 

EFZ  -  z  component  of  far  electric  field  with  range  and 
current  dependence  suppressed,  (mks  units) 

ETA  -  intrinsic  impedance  of  ambient  medium  (mks  units) 

GANNA  -  complex  propagation  constan  of  ambient  medium  (mks 

units) 


IMPLICIT:  NONE 


c 

C  OTHER  MAJOR  VARIABLES: 
C 


c 

ANGFTR 

-  primary  angle  dependent  term 

c 

CIM 

-  complex  i 

c 

c 

EFP 

-  range  independent  phi  component  of  the  far 
electric  field 

c 

c 

EFT 

-  range  independent  theta  component  of  the  far 
electric  field 

c 

IMGFTR 

-  image  dipole  factor 

c 

NDRFTR 

-  nondirectional  factor 

c 

PHIFTR 

-  phi  component  factor 

c 

c 

THTFTR 

-  theta  component  factor 

c 

c 

SYSTEM  STATE 

CHANGES:  NONE 

C 

C- 

C 

C  Declare  variables. 

C 

IMPLICIT  REAL*8(A-H,0-Z) 

COMPLEX*16  ETA , GAMMA , EFT , EFP , EFX, EFY , EFZ 
COMPLEX*16  CIM , EXPNEG , EXPPOS , NDRFTR , IMGFTR 
C 

C  Define  constants. 

C 

DATA  EO, UO/8 . 8541879357607759D-12 , 1 . 2566370614355172D-6/ 
DATA  PI/3.141592653589793/ 

PI2=PI/2. 

TWOPI=2.*PI 
CIM=DCMPLX(0. ,1.) 

CFIM=. 3048/12. 

CFDR=PI/180. 

OMEGA=2 . *PI*216 . 980*10 . **6 
GAMMA=OMEGA*DSQRT ( U0*E0 ) *CIM 
ETA=DSQRT(U0/E0) 

C 

C  Do  coordinate  rotation  to  place  dipole  in  norht-south  direction. 
C 

PHI=PHIPP-PI2 

THETA=THETPP 

C 

C  Calculate  sines  and  cosines. 

C 

CSPHI=DC0S(PHI) 

SNPHI=DSIN(PHI) 

CSTHET=DCOS( THETA) 

SNTHET=DSIN( THETA) 

C 

C  Adjust  for  precision  errors. 

C 

IF(DABS(CSPHI).LT.1.D-15)  CSPHI=0. 

IF( DABS( SNPHI ) . LT . 1 . D-15 )  SNPHI=0 . 

IF(DABS(CSTHET).LT.1.D-15)  CSTHET=0. 

I F ( DABS ( SNTHET ) . LT . 1 . D- 15 )  SNTHET=0 . 

C 

C  Calculate  angle  dependent  term. 

C 

ANGFTR=SNTHET*CSPHI 


ooo  ooo  ooo  non  ooo 


Calculate  nondirectional  factors. 

EXPNEG=CDEXP ( -Cl M*PI 2*ANGFTR ) 

EXPPOS=CDEXP ( CIM*PI 2*ANGFTR ) 

SQRFTR=DSQRT( 1 . -ANGFTR*ANGFTR) 

IF(SQRFTR.NE.O.)  THEN 

NDRFTR= ( EXPNEG+EXPPOS ) / SQRFTR 
ELSE 

NDRFTR=DCMPLX(0. ,0.) 

ENDIF 

Calculate  directional  component  factors. 

IF( SQRFTR. NE.O.)  THEN 

THTFTR=-CSPHI*CSTHET/SQRFTR 
PHIFTR=SNPHI / SQRFTR 
ELSE 

THTFTR=0. 

PHIFTR=0. 

ENDIF 

Calculate  image  factor. 

IMGFTR=CDEXP(-CIM*3.*PI2*CSTHET) 

Calculate  far  electric  field  components. 

EFT=CIM*ETA/2 . /TWOPI*NDRFTR*THTFTR*( 1 . -IMGFTR) 
EFP=CIM*ETA/2 . /TWOPI*NDRFTR*PHIFTR*( 1 . -IMGFTR) 

Convert  spherical  components  to  cartesian  components. 

EFX=EFT*CSTHET*CSPHI -EFP*SNPHI 
EFY=EFT*CSTHET*SNPHI+EFP*CSPHI 
EFZ=-EFT*SNTHET 
C 

RETURN 

END 


ooonoooooooooooooooooooorjoooooooooonoooonoooooooonoooooooo 


C+ 

SUBROUTINE  ELFFLD( PHI , THETA , IFLAG , lUNIT , ETA , GAM , EFX , EFY , EFZ ) 

<r  ★ 

*  SUBROUTINE  ELFFLDTRNS  * 

it  -k 

kkkkkkk’kk'k'kkk'kkk'k'kk'kit'k-kkickkkk'k'kickkk'kkkickk'kkkkic'kk'kkk'kk'kkk'kkk'kkkk'kk'k'kk'kk 


AUTHOR: 

DATE: 

LANGUAGE: 

FILE: 


DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 
31 -MARCH- 1988 
VAX  FORTRAN 

MV7  770:: SPACE : ( BERG . ARRAY } ELFFLDTRNS . FOR 


CALLING  ROUTINE:  @MV7 7 70 :: SPACE: [BERG. ARRAY] GEN_ARRAY.COM 

SUBROUTINES  CALLED: 

GFFLD  -  calculates  the  far  electric  field  for 
a  specified  angle  produced  by  all  of 
the  test  dipole  modes  which  model  the 
ground  screen  current. 

NTELFF  -  calculates  the  range  independent  far 

electric  field  of  an  isolated  NAVSPASUR 
arrowhead  dipole  with  unit  terminal 
current. 

COMPILE  INSTRUCTIONS:  $  FORTRAN  ELFFLD_TRNS 

LINK/LOAD  INSTRUCTIONS (TKB):  $  LINK  'MAIN', ARRAY  SBR,'ELP0S', 

' CURRNT ' , ELFPLD_TRNS 

PARENT  PROGRAM:  ARRAY_SBR . FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  calculates  the  range  independent  far  electric 
field  for  a  specified  direction  of  a  NAVSPASUR  arrowhead  dipole  with 
unit  terminal  current  placed  over  a  finite  thin  wire-grid  ground 
screen. 


PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  IF 

subroutine  is  called  for  the  first  time 


THEN 


READ 

-  input  values  from  THINWIRE.OUT. 
RETURN 


ENDIF 

2 .  CALL 

-  isolated  NAVSPASUR  transmitter  element  contribution 
to  electric  field. 


3.  CALL 

-  ground  screen  contribution  to  electlc  field. 


ooonrsoooooonooooooooooooooonooooooonnocjoooorjoooooonooooooooo 


4.  Calculate  cartesian  components  of  total  electric  field. 

5.  RETURN 

INPUTS 

EXPLICITS 

IFLAG  -  flag  ;  0  =>  first  time  called 

1  =>  called  previouly 
lUNIT  -  ouput  unit  number 

PHI  -  standard  spherical  coordinates  phi  (radians) 

THETA  -  standard  spherical  coordinates  theta  (radians) 

F0R004  -  THINWIRE.OUT 

CI(K)  -  imaginary  part  of  current  amplitude  for  test 
dipole  mode  K 

CR(K)  -  real  part  of  current  amplitude  for  test  dipole 
mode  K 

D(J)  -  length  of  segment  J 

ETA  -  intrinsic  impedance  of  ambient  medium 

GAM  -  complex  propagation  constant  of  ambient  medium 

IA(J)  -  1st  endpoint  of  segment  J 

IB(J)  -  2nd  endpoint  of  segment  J 

INM  -  maximum  allowed  number  of  segments 

INS  -  north-south  wire  indicator  (0  :  no  N-S  wires) 

I1(K)  -  1st  endpoint  of  test  dipole  K 

I2(K)  -  terminal  point  of  test  dipole  K 

I3(K)  -  2nd  endpoint  of  test  dipole  K 

MD(J,L)  -  list  of  test  dipoles  sharing  segment  J 

N  -  total  #  of  test  dipole  modes 

ND(J)  -  total  #  of  test  dipoles  sharing  segment  J 

NP  -  #  of  points  (segment  endpoints) 

NSYM  -  degrees  of  symmetry  of  ground  screen 
NV  -  #  of  east-west  (parallel  to  element  plane) 

ground  wires 

N1  -  minimum  #  of  test  dipoles  for  which  a  current 

value  must  be  calculated  due  to  the  4-fold 
symmetry  of  at  least  part  of  the  test  dipole 
distribution  (N2/4) 

N2  -  #  of  test  dipoles  which  are  part  of  the  4-fold 

symmetry 

XPT(I)  -  X  coordinate  (meters)  of  point  I  wrt  element 
terminal 

YPT(I)  -  y  coordinate  (meters)  of  point  I  wrt  element 
terminal 

ZPT(I)  -  z  coordinate  (meters)  of  point  I  wrt  element 
terminal 

IMPLICIT;  NONE 

OUTPUTS 

EXPLICIT; 

EFX  -  X  component  of  far  electric  field  (mks  units)  from 

element  with  range  and  current  dependence  suppressed 
EFY  -  y  component  of  far  electric  field  (mks  units)  from 

element  with  range  and  current  dependence  suppressed 
EFZ  -  z  component  of  far  electric  field  (mks  units)  from 

element  with  range  and  current  dependence  suppressed 
ETA  -  intrinsic  impedance  of  ambient  medium  (mks  units) 

GAM  -  complex  propagation  constant  of  ambient  medium  (mks 

units) 


O  C5  o  ooo  o  o  o  o  o  o  n  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o 


IMPLICIT: 

NONE 

OTHER  MAJOR 

VARIABLES: 

EFP 

-  phi  component  of  far  electric  field  from  element  with 
range  and  current  dependence  suppressed. 

EFPD 

-  phi  component  of  far  electric  field  for  isolated 
dipole  element  with  range  and  current  dependence 
suppressed. 

EFPS 

-  phi  components  of  far  electric  field  scattered  from 
ground  screen  with  range  and  current  dependence 
suppressed. 

EFT 

-  theta  component  of  far  electric  field  from  element 
with  range  and  current  dependence  suppressed. 

EFTD 

-  theta  component  of  far  electric  field  for  isolated 
dipole  element  with  range  and  current  dependence 
suppressed. 

EFTS 

-  theta  components  of  far  electric  field  scattered  from 
ground  screen  with  range  and  current  dependence 
suppressed. 

CGD(J) 

-  cosh(GAM*D(J)) 

SGD(J) 

-  sinh(GAM*D(J)) 

SYSTEM  STATE  CHANGES:  NONE 


Declare  variables. 

IMPLICIT  REAL*8 ( A-H , 0-Z ) 

COMPLEX* 16  EFT , EFTD , EFTS , EFP , EFPD , EFPS , EFX , EFY , EFZ 

COMPLEX*16  ETA, GAM 

COMPLEX*16  CGD(1587),SGD(1587) 

DIMENSION  XPT(832 ) , YPT(832 ) , ZPT(832 ) , D( 1587 ) 

DIMENSION  IA( 1587 ) , IB( 1587 ) ,11(2404) , 12(2404) , 13(2404) 
DIMENSION  MD(1587,4),ND(1587) 

DIMENSION  CR( 2404), Cl (2404) 

INM=1587 


Execute  first  section  only  if  this  is  the  first  time  the  subroutine  is 
called. 

IF(IFLAG.EQ.O)  THEN 
Vrite  element  name. 

WRITE (lUNIT, 11) 

Read  input  values  from  THINVIRE.OUT. 

READ(4,10)  ETA 
READ(4,10)  GAM 
READ(4,*)  NSYM 
READ(4,*)  NW 
READ(4,*)  INS 
READ(4,*)  NP 
READ(4,*)  NM 
READ(4,*)  N 
READ(4,*)  N1 
READ(4,*)  N2 


ooo  o o o  noo  ooo  o o o  n  n n n 


C 

DO  I»1,NP 

READ(A,*)  XPT(I),yPT(I),ZPT(I) 

ENDDO 

C 

DO  J=1,NM 

READ(4,*)  IA(J),IB(J),D(J) 

ENDDO 

C 

DO  J=:1,NM 

READ(4,*)  ND(J),MD(J,1),MD(J,2),MD(J,3),MD(J,4) 

ENDDO 

C 

DO  K=1,N 

READ(4,*)  I1(K),I2(K),I3(K) 

ENDDO 

C 

DO  K=1,N1 

READ(4,*)  CR(K),CI(K) 

ENDDO 

C 

DO  J*1,NM 

CGD( J ) * ( CDEXP ( GAM*D( J ) ) +CDEXP ( -GAM*D( J ) ) ) / 2 . 

SGD ( J ) = ( CDEXP ( G AM*D ( J ) ) -CDEXP ( -GAM*D ( J ) ) ) / 2 . 

ENDDO 

Return  to  subroutine. 

RETURN 
ENDIF 

Calculate  isolated  element  contribution  to  electric  field. 

CALL  NTELFF ( PHI , THETA , ETA , EFTD , EFPD) 

Calculate  ground  screen  contribution  to  electric  field. 

CALL  GFFLD(PHI,THETA,IA,IB,INM,I1,I2,I3,XPT,YPT,ZPT,MD,N, 
+  N1 , N2 , ND , NM , NW , NS YM , INS , ETA , GAM , D , CGD , SGD , CR , Cl , 

+  EFTS,EFPS) 

Calculate  total  electric  field  for  element. 

EFT=EFTD+EFTS 
EFP=EFPD+EFPS 

Calculate  sines  and  cosines  of  angles. 

CSPHI=DCOS(PHI) 

SNPHI=DSIN(PHI) 

CSTHET=DCOS(THETA) 

SNTHET=DSIN( THETA) 

Calculate  cartesian  components  of  electric  field. 

EFX=EFT*CSTHET*CSPHI-EFP*SNPHI 
EFY=EFT*CSTHBT*SNPHI+EFP*CSPHI 
EFZ=-EFT*SNTHET 
C 


o o o o o o o n o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o  oo  oo 


Format  statements. 


10  F0RMAT(1X,2E15.8) 

11  F0RMAT('0' ,'NAVSPASUR  HALF-WAVE  ARROWHEAD  DIPOLE') 

RETURN 

END 

>*****★*******************★*********♦*★**★****************************■* 


SUBROUTINE  GFFLD(PHI,THETA,IA,IB,INM,I1,I2,I3,X,Y,Z,MD,N,N1,N2, 
2ND,NM,NW,NSYM,INS,ETA,GAM,D,CGD,SGD,CR,CI,ETTS,EPPS) 


*  * 


*  SUBROUTINE  GFFLD 

* 


★ 

★ 


■k-kifklililfk'ffkifkifkiilfkifk'k-k-k-kiilfklc-k'kififklfkitlfk-kifkifkicifkiiifkifk-k'kifkiticifkifk'k-k-k-k'klfk-klfii 


AUTHOR:  J.  H.  RICHMOND,  OHIO  STATE  UNIVERSITY  ELECTROSCIENCE  LAB 

REFERENCE  :  J.  H.  Richmond,  "COMPUTER  PROGRAM  FOR 
THIN-WIRE  STRUCTURES  IN  A  HOMOGENEOUS 
CONDUCTING  MEDIUM",  National  Technical 
Information  Service,  Springfield,  VA  22151, 
NASA  Contract  Report  CR-2399,  June  1974 

DATE:  JUNE-1974 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: : SPACE; ( BERG. ARRAY 1ELFFLD_TRNS. FOR 

CALLING  ROUTINE :  @MV7  7  70 : : SPACE : [ BERG . ARRAY ] GEN_ARRAY . COM 


SUBROUTINES  CALLED;  GFF  -  calculates  range  independent  far  electric 

field  for  a  single  sinusoidal  electric 
monopole  with  unit  current  at  either 
endpoint. 


COMPILE  INSTRUCTIONS;  $  FORTRAN  ARRAY 


LINK/LOAD  INSTRUCTIONS(TKB):  $  LINK  ARRAY 


PARENT  PROGRAM;  ELFFLDTRNS . FOR 

PROGRAM  DESCRIPTION; 

This  subroutine  calculates  the  range  Independent  far  electric 
field  for  a  specified  angle  produced  by  a  number  of  test  dipole 
modes . 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  DO 

for  each  segment. 


CALL 

-  electric  field  for  coinciding  test  monopole 
for  both  possible  orientations. 


DO 

for  each  test  monopole  coinciding  with  segment. 
Determine  orientation  of  test  monopole. 


ooooooonoooooooooooooonooonooooooooooooooooorjoooonoooooooooo 


Add  test  monopole's  contribution  to 
correspondingtest  dipole  mode's  electric 
field. 

ENDDO 

ENDDO 

2.  DO 

for  each  test  dipole  mode. 

Add  its  contribution  to  the  total  electric  field. 

ENDDO 

3.  RETURN 

INPUTS 

EXPLICIT; 

CGD  -  cosh(GAM*D) 

CI(K)  -  imaginary  part  of  current  amplitude  for  test  dipole 
mode  K  (amperes) 

CR(K)  -  real  part  of  current  amplitude  for  test  dipole  mode  K 
(amperes) 

D(J)  -  length  of  segment  J  (meters) 

ETA  -  intrinsic  impedance  of  ambient  medium 

GAM  -  complex  propagation  constant  of  ambient  medium 

IA(J)  -  1st  endpoint  of  segment  J 

IB(J)  -  2nd  endpoint  of  segment  J 

INM  -  maximum  allowed  number  of  segments 

INS  -  north-south  wire  indicator  (0  :  no  N-S  wires) 

I1(K)  -  1st  endpoint  of  test  dipole  K 

I2(K)  -  terminal  point  of  test  dipole  K 

I3(K)  -  2nd  endpoint  of  test  dipole  K 

MD(J,L)  -  list  of  test  dipoles  sharing  segment  J 
ND(J)  -  total  #  of  test  dipoles  sharing  segment  J 

N  -  total  #  of  test  dipole  modes 

NM  -  number  of  segments 

NSYM  -  degrees  of  symmetry  of  ground  screen 
NV  -  #  of  east-west  (parallel  to  element  plane)  ground 

wires 

N1  -  minimum  #  of  test  dipoles  for  which  a  current  value 

must  be  calculated  due  to  the  4-fold  symmetry  of  least 

part  of  the  test  dipole  distribution  (N2/4) 

N2  -  #  of  test  dipoles  which  are  part  of  the  4-fold 

symmetry 

PHI  -  angle  phi  (radians) 

SGD  -  sinh(GAM*D) 

THETA  -  angle  theta  (radians) 

X(I)  -  X  coordinate  of  point  I  (meters)  wrt  element  terminal 

y(I)  -  y  coordinate  of  point  I  (meters)  wrt  element  terminal 

Z(I)  -  z  coordinate  of  point  I  (meters)  wrt  element  terminal 

IMPLICIT:  NONE 

OUTPUTS 

EXPLICIT: 

EPPS  -  phi  component  of  far  electric  field  with  range 
dependence  suppressed  (mks  units) 

ETTS  -  theta  component  of  far  electric  field  with  range 


oooo  ooo  ono  ooo  o o o  o o o o o o o o o o o o o o o o o o o 


dependence  suppressed  (inks  units) 

IMPLICIT;  NONE 
OTHER  MAJOR  VARIABLES: 

EPP(I)  -  phi  component  of  range  dependence  suppressed  far 
electric  field  of  test  dipole  I 
ETT(I)  -  theta  component  of  range  dependence  suppressed  far 
electric  field  of  test  dipole  I 

SYSTEM  STATE  CHANGES:  NONE 


MODIFIED: 

DR.  STEVEN  L.  BERG,  03/15/88  - 

Conformed  to  ELFFLD  TRNS's  and  THINVIRE's  requirements. 


Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 

C0MPLEX*16  ETA, GAM 
C0MPLEX*16  CJ,ET1,EP1,ET2,EP2 
C0MPLEX*16  ETTS,EPPS 
C0MPLEX*16  ETT(2404),EPP(2404) 

C0MPLEX*16  CGD(1),SGD(1) 

DIMENSION  CR(1),CI(1) 

DIMENSION  IA(1),IB(1),I1(1),I2(1),I3(1),X(1),Y(1),Z(1),D(1),ND(1) 
DIMENSION  MD<INM,4) 


Define  PI. 


DATA  PI/3.141592653589793/ 

Calculate  sines  and  cosines. 

CSPHI=.DCOS(PHI) 
SNPHI=DSIN(PHI) 
CSTHET=DCOS( THETA) 
SNTHET*DSIN(THETA) 


Adjust  for  precision  errors. 

IF(DABS(CSPHI) . LT. 1 . D-15)  CSPHI=0. 
IF(DABS(SNPHI).LT.1.D-15)  SNPHI=0. 

IF(DABS(CSTHET) .LT. l.D-15)  CSTHET=0. 

I F ( DABS ( SNTHET ) . LT . 1 . D- 1 5 )  SNTHET=0 . 

Zero  initial  electric  fields  from  all  test  dipoles  modes. 

DO  130  1=1, N 
ETT(I)=DCMPLX(.0, .0) 

EPP(I)=DCMPLX(.0,.0) 

130  CONTINUE 

Calculate  electric  field  from  test  dipoles  coinciding  with  all 
segments. 

DO  140  K=1,NM 
KA=IA(K) 

KB=IB(K) 


ooo  oooooo  oooooooooo 


Calculate  electric  field  from  test  monopole  coinciding  with  segment  K 
for  both  orientations. 

CALL  GFF(X(KA),Y(KA),Z(KA),X(KB),Y(KB),Z(KB),D(K), 

2  CGD(K) , SGD(K ) , CSTHET , SNTHET , CSPHI , SNPHI , GAM , ETA , ETl , ET2 , EPl , EP2 ) 

NDK»ND(K) 

For  each  test  monopole  (test  dipole  arm)  coinciding  with  segment  K, 
determine  the  monopole's  orientation  wrt  segment  K  and  add  its 
contribution  to  its  corresponding  test  dipole  mode's  electric  field. 

DO  140  11=1, NDK 
I=MD(K,II) 

FI=1. 

IF(KB.EQ.I2(I))  GO  TO  136 
IF(KB.EQ.I1(I))  FI=-1. 

EPP(I)=EPP(I)+FI*EP1 
ETT(I)=ETT(I)+FI*ET1 
GO  TO  140 

136  IF(KA.EQ.I3(I))  FI=-1. 

EPP(I)=EPP(I)+FI*EP2 
ETT(I)=ETT(I)+FI*ET2 
140  CONTINUE 

Zero  electric  field  produced  by  all  test  dipole  modes. 


EPPS=(.0,.0) 
ETTS«<.0, .0) 


Add  electric  field  produced  by  all  test  dipole  modes. 

DO  260  1=1, N 
IF(NSYM.NE.l)  GO  TO  240 
CJ=DCMPLX(CR( I ) , Cl ( I ) ) 

GO  TO  250 
240  CONTINUE 
14=1 
PM=1.0 

IF(I4.GT.3*N1  .AND.  I4.LE.4*N1  .AND.  INS.NE.O)  PM=-1.0 
IF(I4.GT.3*N1  .AND.  I4.LE.4*N1)  I4=I4-3*N1 
IF(I4.GT.2*N1  .AND.  I4.LE,4*N1)  I4=I4-2*N1 
IF(I4.GT.N1  .AND.  I4.LE.4*N1  .AND.  INS.NE.O)  PM=-1.0 
IF(I4.GT.N1  .AND.  I4.LE.4*N1)  I4=I4-N1 
IF(I4.GT.N2)  I4=I4-(N-N2) 

IF(I4.GT.4*N1)  I4=I4-3*N1 
CJ=PM*DCMPLX(CR( 14 ) , Cl ( 14 ) ) 

250  CONTINUE 

ETTS=ETTS+CJ*ETT ( I ) 

EPPS=EPPS+CJ*EPP(I) 

260  CONTINUE 

Return  to  subroutine 

RETURN 

END 

c+ 

SUBROUTINE  GFF ( XA , YA , ZA , XB , YB , ZB , D , CGD , SGD , CTH , STH , 


ooooonooooooooooooooooooonooooooooooooooooooooooooooooooooo 


2CPH,SPH,GAM,ETA,ET1,ET2,EP1,EP2) 


************************************************************************ 
*  * 

*  SUBROUTINE  GFF  * 

•k  -k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


AUTHOR: 


DATE: 

LANGUAGE: 

FILE: 


J.  H.  RICHMOND,  OHIO  STATE  UNIVERSITY  ELECTROSCIENCE  LAB 
REFERENCE  :  J.  H.  Richmond,  "COMPUTER  PROGRAM  FOR 
THIN-WIRE  STRUCTURES  IN  A  HOMOGENEOUS 
CONDUCTING  MEDIUM",  National  Technical 
Information  Service,  Springfield,  VA  22151, 
NASA  Contract  Report  CR-2399,  June  1974 

JUNE-1974 
VAX  FORTRAN 

MV7  7  70 : : SPACE : [ BERG . ARRAY  J  ELFFLD  TRNS . FOR 


CALLING  ROUTINE:  @MV7770: :SPACE: (BERG. ARRAYJGENARRAY. COM 

SUBROUTINES  CALLED:  NONE 


COMPILE  INSTRUCTIONS:  $ 

LINK/LOAD  INSTRUCTIONS(TKB):  $ 

PARENT  PROGRAM:  GFFLD.FOR 


FORTRAN  ELFFLDTRNS 

LINK  'MAIN',  ARRAY_SBR,  'ELPOS', 
'CURRNT' ,ELFFLD  TRNS 


PROGRAM  DESCRIPTION: 

This  subroutine  uses  the  equations  from  reference  1  to  calculate 
the  far-zone  field  of  a  sinusoidal  electric  test  monopole  for  two 
cases,  corresponding  to  unit  current  at  endpoint  A  and  endpoint  B. 

The  test  monopole  has  endpoints  (XA,YA,ZA)  and  (XB,YB,ZB).  The  range 
dependence  is  suppressed.  The  far  field  vanishes  in  the  endfire 
direction. 


Reference  1: 

Richmond,  J.H.,  "Radiation  and  scattering  by  thin-wire 
structures  in  the  complex  frequency  domain,"  Report  2902-10, 
July,  1973,  The  Ohio  State  University  ElectroScience  Laboratory, 
Department  of  Electrical  Engineering:  prepared  under  Grant  NGL 
36-008-138  for  National  Aeronautics  and  Space  Administration, 
Langley  Research  Center.  (Available  as  NASA  CR-2396,  1974) 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  Calculate  electric  field  components  for  test  monopole. 

2.  RETURN 


INPUTS 

EXPLICIT: 

CGD  -  cosh(GAM*D) 

CPH  -  cos (phi) 

CTH  -  cos (theta) 

D  -  length  of  test  monopole  (meters) 

ETA  -  Intrinsic  impedance  of  ambient  medium  (mks  units) 

GAN  -  complex  propagation  constant  of  ambient  medium  (mks 


ooo  oon  o  o  o  n  n  o  n  o  o  o  o  o  o  o  o  o  o  o  o  o  n  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  cj  o 


units) 


SGD 

-  sinh(GAM*D) 

SPH 

-  sln(phi) 

STH 

-  sin(theta) 

XA 

-  X  component 

of 

1st 

endpoint 

of 

test 

monopole 

(meters) 

YA 

-  y  component 

of 

1st 

endpoint 

of 

test 

monopole 

(meters) 

ZA 

-  z  component 

of 

1st 

endpoint 

of 

test 

monopole 

(meters) 

XB 

-  X  component 

of 

2nd 

endpoint 

of 

test 

monopole 

(meters) 

YB 

-  y  component 

of 

2nd 

endpoint 

of 

test 

pionopole 

(meters) 

ZB 

-  z  component 

of 

2nd 

endpoint 

of 

test 

monopole 

(meters) 

IMPLICIT: 

NONE 

OUTPUTS 

EXPLICIT: 

EPl  -  phi  component  of  far  electric  field  with  unit  current 
at  (XAjYAjZA)  (mks  units) 

EP2  -  phi  component  of  far  electric  field  with  unit  current 
at  (XB,YB,ZB)  (mks  units) 

ETl  -  theta  component  of  far  electric  field  with  unit 
current  at  (XA,YA,ZA)  (mks  units) 

ET2  -  theta  component  of  far  electric  field  with  unit 
current  at  (XB,YB,ZB)  (mks  units) 


IMPLICIT:  NONE 


OTHER  MAJOR  VARIABLES: 

ESA  -  nondirectional  factor  of  far  electric  field  for  case  A 
(unit  current  at  endpoint  (XA>YA,ZA)). 

ESB  -  nondirectional  factor  of  far  electric  field  for  case  B 
(unit  current  at  endpoint  (XB,YB,ZB)). 

P  -  phi  component  factor  of  far  electric  field 

T  -  theta  component  factor  of  far  electric  field 

SYSTEM  STATE  CHANGES:  NONE 


MODIFIED: 

DR.  STEVEN  L.  BERG,  03/05/88  - 

Header  and  comments  have  been  added,  variables  have  been 
changed  to  double  precision,  and  one  minor  change  was 
made  as  noted  below  in  a  comment. 

Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 

COMPLEX* 16  GAM, ETA 

COMPLEX* 16  ET 1 , ET2 , EP 1 , EP2 , EGFA , EGFB , EGGD , CST 
COMPLEX* 16  ESA,ESB,CGD,SGD 

Define  constants. 

DATA  PI/3.141592653589793/ 

FP=4.*PI 


Calculate  cartesian  components  of  test  monopole. 


XAB=XB-XA 


ooo  ooo  n o o  ooo  noon  ooo  ooo  ooo  ooo 


YAB=YB-YA 

ZAB:>ZB-ZA 

Calculate  directian  cosines  of  test  monopole  vrt  cartesian  axes. 

CA-XAB/D 

CB=YAB/D 

CGzzZAB/D 

Calculate  values  of  far  field  variables. 

G= ( CA*CPH+CB*SPH ) *STH+CG*CTH 

Added  to  avoid  underflow. 

IF(DABS(G).LT.1.D-15)  G=0. 

GK=1.-G*G 

Zero  fields. 


ET1=(.0, .0) 
ET2=(.0, .0) 
EP1=(.0, .0) 
EP2=(.0,.0) 


Changed  (GK.LT.,001)  to  (GK.EQ.0.0). 

IF(GK.EQ.O.)  the  test  monopole  is  in  the  endfire  position. 
IF(GK.EQ.O.O)  GO  TO  200 

Calculate  values  of  far  field  variables  for  cases  A  and  B. 

FA= ( XA*CPH+ YA*SPH ) *  STH+ZA*CTH 
FB= ( XB*CPH+YB*SPH ) *STH+ZB*CTH 
EGFA=CDEXP(GAM*FA) 

EGFB=CDEXP(GAM*FB) 

EGGD=CDEXP ( GAM*G*D ) 

CST=ETA/(GK*SGD*FP) 

ESA=CST*EGFA* ( EGGD-G*SGD-CGD) 

ESB=CST*EGFB*( 1 . /EGGD+G*SGD-CGD) 

Calculate  theta  and  phi  component  factors. 

T= ( CA*CPH+CB*SPH ) *CTH-CG*  STH 
P=-CA*SPH+CB*CPH 

Calculate  electric  field  components. 

ET1=T*ESA 
ET2=T*ESB 
EP1=P*ESA 
EP2=P*ESB 
200  CONTINUE 

Return  to  subroutine. 

RETURN 

END 

c+ 


SUBROUTINE  NTELFF ( PHI , THETA , ETA , EFT , EFP ) 


it  * 

*  SUBROUTINE  NTELFF  * 

★  * 


AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  31-MARCH-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770:: SPACE: (BERG. ARRAYIELFFLD  TRNS.FOR 


CALLING  ROUTINE: 


@MV7770: : SPACE: [BERG. ARRAY] GEN  ARRAY.COM 


SUBROUTINES  CALLED:  NONE 


COMPILE  INSTRUCTIONS: 


$  FORTRAN  ELFFLD  TRNS 


LINK/LOAD  INSTRUCTIONS(TKB):  $  LINK  'MAIN' , ARRAY_SBR, 'ELPOS' , 

'CURRNT' ,ELFFLD_TRNS 

PARENT  PROGRAM:  ELFFLDTRNS . FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  calculates  the  far  electric  field  of  an  isolated 
NAVSPASUR  arrowhead  dipole  with  unit  terminal  current  for  a  specified 
angle.  The  range  dependence  (exp(-ikr)/r)  is  suppressed. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  Calculate  the  far  electric  field  for  a  specified  angle. 

2.  RETURN 


INPUTS 

EXPLICIT; 

ETA 

PHI 


-  intrinsic  impedance  of  ambient  medium  (mks  units) 

-  angle  phi  (radians)  wrt  element 


THETA  -  angle  theta  (radians)  wrt  element 
IMPLICIT;  NONE 


OUTPUTS 

EXPLICIT: 

EFP 


-  range  independent  phi  component  of  the  far  electric 
field  (mks  units) 

-  range  independent  theta  component  of  the  far  electric 
field  (mks  units) 


IMPLICIT:  NONE 


OTHER  MAJOR  VARIABLES: 


A  -  primary  angle  dependent  term  of  one  monopole  of  dipole 

(monopole  A) 

B  -  primary  angle  dependent  term  of  other  monopole  of 

dipole  (monopole  B) 

CEA  -  nondirectional  factor  of  monopole  A 


ones  ooooo  n  o  o  ono  o  n  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o 


CEB  -  nondirectional  factor  of  monopole  B 

CIM  -  complex  i 

PHA  -  phi  component  factor  of  monopole  A 

PHB  -  phi  component  factor  of  monopole  B 

THA  -  theta  component  factor  of  monopole  A 

THB  -  theta  component  factor  of  monopole  B 


SYSTEM  STATE  CHANGES:  NONE 


Declare  variables. 

IMPLICIT  REAL*8(A-H,0-Z) 

COMPLEX* 16  ETA,EFT,EFP 
C0MPLEX*16  CIM , CEXPA , CEXPB , CEA , CEB 


Define  constants. 

DATA  PI/3.141592653589793/ 
CFDR=PI/180. 

P2=PI/2. 

TP=2.*PI 

CIM=DCMPLX(.0,1.) 


Calculate  sines  and  cosines. 

CSPHI=DCOS(PHI) 
SNPHI*DSIN(PHI) 
CSTHET=DCOS( THETA) 
SNTHET=DSIN(THETA) 


Adjust  for  precision  errors. 

IF( DABS(CSPHI ) . LT . 1 . D-15 )  CSPHI=0 . 

IF(DABS(SNPHI) . LT. 1. D-15)  SNPHI=0. 

I F ( DABS ( CSTHET ) . LT . 1 . D- 1 5 )  CSTHET=0 . 

I F ( DABS ( SNTHET ) . LT . 1 . D- 15 )  SNTHET=0 . 

Calculate  angle  dependent  terms. 

55  degrees  is  the  droop  angle  (angle  below  horizontal)  of  the 
NAVSPASUR  arrowhead  dipole. 

CS55=DC0S(CFDR*55.) 

SN55.DSIN(CFDR*55.) 

AB=SN55*CSTHET 

BA=CS55*SNTHET*CSPHI 

A=AB-t-BA 

IF(A.GT.l.O)  A=1.0 
IF(A.LT.-l.O)  A=-1.0 
B=AB-BA 

IF(B.GT.l.O)  B=1.0 
IF(B.LT.-l.O)  B=-1.0 

Calculate  nondirectional  factors. 

CEXPA=CDEXP(-CIM*P2*A) 

CEXPB=CDEXP( -CIM*P2*B) 

SQA=DSQRT(1.-A*A) 


o  o  o  o  o  o 


SQB=DSQRT(1.-B*B) 

IF(SQA.NE.O.)  THEN 

CEA=  <  CEXPA+ ( CIM*A ) ) / SQA 
ELSE 

CEA=DCMPLX(0.,0.) 

ENDIF 

IF(SQB.NE.O.)  THEN 

CEB= ( CEXPB+ ( CIM*B ) ) / SQB 
ELSE 

CEB=DCMPLX(0.,0.) 

ENDIF 

Calculate  directional  component  factors. 

THPH=SN55*SNTHET 
PHTH=CS55*CSTHET*CSPHI 
PHC=CS55*SNPHI 
IF(SQA.NE.O.)  THEN 
THA=(THPH-PHTH)/SQA 
PHA=.PHC/SQA 
ELSE 
THA=0. 

PHA=0. 

ENDIF 

IF(SQB.NE.O.)  THEN 
THB=- (THPH+PHTH ) / SQB 
PHB=PHC/SQB 
ELSE 
THB=0. 

PHB=0. 

ENDIF 

Calculate  far  electric  field  components. 

EFT=CIM*ETA/2 . /TP*(CEA*THA+CEB*THB) 
EFP=CIM*ETA/2 . /TP*(CEA*PHA+CEB*PHB) 
C 

RETURN 

END 


ooooooooooooooonoooooooooooonoooooooooooooooooooooooonoooo 


AUTHOR:  DR.  STEVEN  L.  BERG,  INTERFEROMETRICS  INC. 

DATE:  08-FEBRUARY-1988 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7  7  70 : : SPACE : [ BERG . THINWIRE  J  THINWIRE . FOR 

SUBROUTINES  CALLED:  GSCRD  -  determines  endpoints  associated  with 

wire  grid  segments  and  their 
coordinates  for  a  NAVSPASUR  transmitter 
ground  screen 

SORT  -  creates  a  set  of  test  dipole  modes  for 
a  thin-wire  structure 

S0RT4  -  creates  a  set  of  test  dipole  modes 
specifically  for  a  NAVSPASUR 
transmitter  ground  screen  with  only 
east-west  wires  and  4- fold  symmetry 

SCANT  -  calculates  the  mutual  impedance  matrix 
for  the  test  dipole  modes 

GROUT  -  ( LND= . FALSE . )  decomposes  a  square 
matrix  [A1  into  [D] 

(LND=.TRUE.)  uses  decomposed  square 
matrix  [D]  to  obtain  column  matrix  [B] 
from  the  matrix  equation  [A][B]s(C], 
where  [A]  and  [C]  are  known  and  [cj  is 
a  column  matrix. 

VLTMTX  -  calculates  an  excitation  voltage  matrix 
for  the  electric  field  from  a  NAVSPASUR 
transmitter  element  incident  on  a 
thin-wire  structure. 

COMPILE  INSTRUCTIONS:  $  FORTRAN  THINWIRE 

LINK/LOAD  INSTRUCTIONS (TKB):  $  LINK  THINWIRE 
PROGRAM  DESCRIPTION: 

This  program  uses  the  piecewise  Galerkin  method  of  moments  to 
calculate  the  complex  current  distribution  over  a  wire-grid  ground 
screen  of  selected  size  which  lies  below  a  NAVSPASUR  transmitter 
element.  A  cartesian  coordinate  system  is  used,  with  the  positive 
X,  y,  and  z  axes  corresponding  to  the  directions  west,  south,  and  up, 
respectively. 

REFERENCES  :  1.  J.  H.  Richmond,  "COMPUTER  PROGRAM  FOR  THIN-WIRE 

STRUCTURES  IN  A  HOMOGENEOUS  CONDUCTING  MEDIUM" 
National  Technical  Information  Service,  Springfield, 
VA  22151,  NASA  Contract  Report  CR-2399,  June  1974 
2.  G.  A.  Thiele,  WIREGRID  BODY  PROGRAM  from  "WIRE 
ANTENNAS",  Chapter  2  in  Computer  Techniques  for 
Electromagnetics,  Pergamon  Press,  New  York,  1973 

PROGRAM  ALGORITHM  (PSEUDOCODE): 


ooorjoooooooooooonooooooooooooooocjoooooooooonooooooooooooocioo 


1.  READ 


-degrees  of  symmetry 
-north-south  wire  Indicator 
-wire  radius 
-wire  conductivity 

-ambient  medium  relative  electric  permittivity 

-ambient  medium  conductivity 

-#  of  E-W  wires 

-#  of  segments/wire 

-spacing  between  wires 

-height  of  dipole  vertex  above  ground  screen 
-wire  length 
-transmission  frequency 


2.  CALL 

-  endpoints  associated  with  E-W  segments  and  their 
coordinates  for  a  NAVSPASUR  transmitter  ground  screen. 

3.  CALL 

-  a  set  of  test  dipole  modes  for  the  ground  screen. 

4.  CALL 

-  the  mutual  impedance  matrix  for  the  test  dipole  modes. 

5.  CALL 

-  the  decomposed  mutual  impedance  matrix. 

6.  CALL 

-  the  excitation  voltage  matrix  for  the  electic  field 
incident  on  the  ground  screen. 

7.  CALL 

-  the  sinusoidal  current  amplitude  matrix  of  the  test 
dipole  modes. 

8.  END 

INPUTS  EXPLICIT: 

F0R005  -  THINWIRE.INP 

AM  -  wire  radius  (meters) 

CMM  -  wire  conductivity  (mhos/meters) 

(zero  or  negative  value  is  treated  as  infinite 
conductivity) 

ER3  -  ambient  medium  relative  electric  permittivity 
FMC  -  frequency  (megahertz) 

INS  -  N-S  wire  indicator 

(0  ;  no  N-S  wires;  1  :  13  N-S  wires) 

NSW  -  #  of  segments/E-W  wire 

NSYM  -  degrees  of  symmetry  of  ground  screen 

NW  -  #  of  E-W  ground  wires 

SIG3  -  ambient  medium  conductivity  (mhos/meter) 

SPC  -  spacing  between  E-W  wires 

WRL  -  E-W  wire  length 

ZHGT  -  height  of  element  vertex  above  ground  screen 

IMPLICIT:  NONE 

OUTPUTS  EXPLICIT: 

F0R004  -  THINWIRE.OUT 

ETA  -  intrinsic  impedance  of  ambient  medium 


c 

GAM 

-  complex  propagation  constant  of  ambient  medium 

c 

INS 

-  N-S  wire  indicator 

c 

(0  :  no  N-S  wires;  1  :  13  N-S  wires) 

c 

N 

-  total  #  of  test  dipole  modes 

c 

N1 

-  #  of  test  dipole  modes  in  one  quadrant  of  the 

c 

ground  screen,  which  have  symmetric  counter 

c 

parts  in  the  other  three  quadrants. 

c 

N2 

-  #  of  test  dipole  modes  in  one  half  of  the 

c 

ground  screen,  which  have  symmetric  counter 

c 

parts  in  the  other  half. 

c 

NM 

-  number  of  segments 

c 

NP 

-  number  of  points  (segment  endpoints) 

c 

NSYM 

-  degrees  of  symmetry  of  ground  screen 

c 

NW 

-  t  of  E-W  ground  wires 

c 

FOR006  -  THINWIRE.DAT 

c 

AN 

-  wire  radius  (meters) 

c 

CMM 

-  wire  conductivity  (mhos/meters) 

c 

(zero  or  negative  value  is  treated  as  infinite 

c 

conductivity) 

c 

ER3 

-  ambient  medium  relative  electric  permittivity 

c 

FMC 

-  frequency  (megahertz) 

c 

IA(J) 

-  1st  endpoint  of  segment  J 

c 

IB(J) 

-  2nd  endpoint  of  segment  J 

c 

MAX 

-  maximum  value  of  ND(J) 

c 

MIN 

-  minimum  value  of  ND(J) 

c 

N 

-  total  #  of  test  dipole  modes 

c 

NSV 

-  #  of  segments/E-W  wire 

c 

NV 

-  #  of  E-W  ground  wires 

c 

SIG3 

-  ambient  medium  conductivity  (mhos/meter) 

c 

SPC 

-  spacing  between  E-W  wires 

c 

WRL 

-  E-W  wire  length 

c 

ZHGT 

-  height  of  element  vertex  above  ground  screen 

c 

C  IMPLICIT;  NONE 

C 

C  OTHER  MAJOR  VARIABLES: 

C 

C  CFIM  -  conversion  factor  :  inches  to  meters 

C  CGD(J)  -  cosh  (GAM*D(J)) 

C  CI(I,J)  -  imaginary  values  of  mutual  impedance  matrix  for  test 
C  dipoles 

C  CR(I,J)  -  real  values  of  mutual  impedance  matrix  for  test  dipoles 

C  D(J)  -  length  of  segment  J 

C  EO  -  electric  permittivity  of  vacuum 

C  EP3  -  complex  dielectric  constant  of  ambient  medium 

C  FHZ  -  frequency  (hertz) 

C  11(1)  -  1st  endpoint  of  test  dipole  I 

C  12(1)  -  terminal  endpoint  of  test  dipole  I 

C  I3(I)  -  2nd  endpoint  of  testdipole  I 

C  ICJ  -  maximum  allowed  number  of  test  dipole  modes 

C  lER  -  error  indicator  for  numerical  integration 

C  INM  -  maximum  allowed  number  of  segments 

C  JA(I)  -  1st  segment  of  test  dipole  I 

C  JB(I)  -  2nd  segment  of  test  dipole  I 

C  MD(J,K)  -  list  of  test  dipoles  sharing  segment  J 

C  ND(J)  -  total  number  of  test  dipoles  sharing  segments  J 

C  NEF  -  effective  #  of  test  dipoles  (minimum  #  of  test  dipole 

C  currents  needed  to  be  calculated) 

C  NVL  -  column  number  for  excitation  voltage  column  matrix 

C  OMEGA  -  angular  frequency 


ooo  o  n  o  o  o  o  o  n  o  C5  o  o  o  o  o  o  o  o  o  o 


SGD(J)  -  sinh  (GAM*D(J)) 

UO  -  magnetic  permeability  of  vacuum 

WL  -  wavelength  (meters) 

X(I)  -  X  coordinate  of  point  I  (meters) 

Y(I)  -  y  coordinate  of  point  I  (meters) 

Z(I)  -  z  coordinate  of  point  I  (meters) 

SYSTEM  STATE  CHANGES;  NONE 


Declare  variables. 


Avaiable  memory  space  of  computer  will  determine  the  limit  of  the 
size  of  ground  screen  for  which  this  program  may  be  used.  Limits  are 
reflected  in  matrices'  sizes. 


IMPLICIT  REAL*8(A-H,0-Z) 

COMPLEX*! 6  EP3,ETA,GAM 
C0MPLEX*16  CGD( 3000 ) , SGD( 3000 ) 

DIMENSION  CR( 602 , 602 ) , Cl ( 602 , 602 ) 

DIMENSION  11(3000) ,12(3000) ,13(3000) ,JA(3000) ,JB(3000) 
DIMENSION  D( 3000) ,IA( 3000) ,IB(3000) ,MD( 3000, 4) ,ND( 3000) 
DIMENSION  X( 3000 ) , Y( 3000 ) , Z ( 3000 ) 

LOGICAL  LND 


Define  constants. 

DATA  EO , UO/8 . 8541879357607759E-12 , 1 . 2566370614355172E-6/ 
DATA  PI/3.141592653589793/ 

TP=2.*PI 
LND=. FALSE. 

ICJ=3000 

INM=3000 

CFIM=.3048D0/12.D0 


Read  input  data  and  write  it  to  an  output. 

READ(5,8)  NSYM,INS 
READ(5,7)  AM,CMM,ER3,SIG3 
WRITE(6,10) 

WRITE(6,17)  AM,CMM,ER3,SIG3 
C 

READ(5,8)  NW,NSW 
WRITE(6,11) 

WRITE(6,18)  NW,NSV 
C 

READ(5,7)  SPC,ZHGT,WRL 
WRITE(6,14)  SPC 
WRITE(6,15)  ZHGT 
WRITE(6,16)  WRL 
C 

READ(5,7)  FMC 
WRITE(6,12)  FMC 
C 

C  Each  point  of  the  thin-wire  model  is  assigned  an  integer  #,  1  ->  NP 
C  Each  segment  of  the  thin-wire  model  is  assigned  and  integer  #,  1  ->  NM 
C 

C  Determine  the  endpoints  associated  with  east-west  segments  and  their 
C  coordinates  for  a  NAVSPASUR  transmitter  antenna  ground  screen. 


oooo  oooooooooo  o  ooo  ooo  oon  ooo 


IF(NW.EQ.O)  GO  TO  51 

CALL  GSCRD(NW,NSW,WRL,SPC,ZHGT,INS,NM,NP,IA,IB,X,Y,Z) 

Write  endpoints  associated  with  each  antenna. 

WRITE(6,13) 

DO  40  J=1,NM 

WRITE(6,19)  J,IA(J),IB(J) 
iO  CONTINUE 

WRITE(6,22) 

Write  endpoint  positions  in  inches,  then  convert  to  meters. 
DO  50  1=1, NP 

WRITE(6,4)  I,X(I),Y(I),Z(I) 

X(I)=X(I)*CFIM 
Y(I)=Y(I)*CFIM 
Z(I)=Z(I)*CFIM 
50  CONTINUE 


Calculate  constants. 

51  FHZ=FMC*1.D6 

WL=1 . D0/DSQRT(E0*U0)/FHZ 
OMEGA=TP*FHZ 

EP3=DCMPLX(ER3*EO, -SIG3/0MEGA) 

ETA=CDSQRT(U0/EP3) 

GAM=OMEGA*CDSQRT ( -U0*EP3 ) 

Define  a  set  of  test  dipole  modes  on  the  thin-vire  ground  screen. 
IF(NSYM.EQ.4)  GO  TO  200 

CALL  S0RT(IA,IB,I1,I2,I3,JA,JB,MD,ND,NM,NP,N,MAX,MIN,ICJ,INM) 

GO  TO  250 

200  CALL  S0RT4(IA,IB,I1,I2,I3,JA,JB,MD,ND,NM,NP,N,N1,N2,MAX,MIN,ICJ, 
2INS,INM,NW,NSW) 

250  WRITE(6,5) 

WRITE(6,9)  MAX, MIN, N 
WRITE(6,5) 

The  number  of  test  dipoles  sharing  a  single  segment  (ND)  must  be  at 
least  one,  otherwise  the  segment  is  disconnected  and  the  computation 
is  terminated.  An  isolated  wire  must  have  at  least  two  segments  and 
three  points.  Also  ND  cannot  exceed  four.  The  total  number  of  test 
dipole  modes  (N)  must  no  exceed  the  maximum  allowable  value  (ICJ). 

IF  (MAX.GT.4  .OR.  MIN.LT.l  .OR.  N.GT.ICJ)  GO  TO  700 

Calculate  the  mutual  impedance  matrix. 

CALL  SGANT(IA,IB,INM,ICJ,I1,I2,I3,JA,JB,MD,N,ND,NM,MP,NW,AM,NSYM, 
2INS,N1,N2,CGD,CMM,D,EP3,ETA,FHZ,GAM,SGD,X,Y,Z,CR,CI) 

NEF=N 

IF(NSYM.EQ.4)  NEF=N1+N-N2 

If  no  test  dipoles  exist,  only  the  far-field  pattern  of  the  radiating 
element  is  calculated. 


ooo  o o o  oooo  oooo 


300  IF(N.LE.O)  GO  TO  700 
NVL=NEF+1 

Calculate  the  decomposed  mutual  impedance  matrix  using  the  Grout 
algorithm. 

CALL  GROUT (NEF,NVL,CR, Cl, LND) 

Calculate  the  excitation  voltage  matrix  for  an  electric  field  incident 
on  the  thin-wire  structure. 

CALL  VLTMTX(NEF,N1,I1,I2,I3,X,Y,Z,ETA,GAM,WL,NVL,CR,CI,IER) 
IF(IER.NE.O)  WRITE(6,25) 


Calculate  the  sinusoidal  current  amplitude  for  each  test  dipole. 
CALL  GROUT (NEF,NVL,CR, Cl, LND) 


Write  input  values  for  MV7 7 70 :: SPACE : (BERG. ARRAY JELFFLDTRNS. FOR. 

700  WRITE(4,1001)  ETA 
WRITE (4, 1002)  GAM 
WRITE(4,1003)  NSYM 
WRITE(4,1004)  NW 
WRITE(4,1005)  INS 
WRITE (4, 1006)  NP 
WRITE (4, 1007)  NM 
WRITE (4, 1008)  N 
WRITE(4,1009)  N1 
WRITE(4,1010)  N2 
DO  1=1, NP 
IF(I.EQ.l)  THEN 

WRITE(4,1011)  X(I),Y(I),Z(I),I 

ELSE 

WRITE(4,1012)  X(I),Y(I),Z(I),I 
ENDIF 
ENDDO 
DO  J=1,NM 
IF(J.EQ.l)  THEN 

WRITE(4,1013)  IA(J),IB(J),D(J),J 
ELSE 

WRITE(4,1014)  IA(J),IB(J),D(J),J 
ENDIF 
ENDDO 
DO  J=1,NM 
IF(J.EQ.l)  THEN 

WRITE(4,1015)  ND(J),MD(J,1),MD(J,2),MD(J,3),MD(J,4),J 
ELSE 

WRITE(4,1016)  ND(J),MD(J,1),MD(J,2),MD(J,3),MD(J,4),J 
ENDIF 
ENDDO 
DO  K=1,N 
IF(K.EQ.l)  THEN 

WRITE(4,1017)  I1(K),I2(K),I3(K),K 
ELSE 

WRITE(4,1018)  I1(K),I2(K),I3(K),K 
ENDIF 
ENDDO 
DO  K=1,NEF 
IF(K.EQ.l)  THEN 


non 


WRITE(4,1019)  CR(K,NVL),CI(K,NVL),K 
ELSE 

WRITE(4,1020)  CR(K,NVL),CI(K,NVL),K 
ENDIF 
ENDDO 


Format  statements. 

4  F0RMAT(1X,I5,2X,3F10.5) 

5  FORMAT (IHO) 

7  FORMAT (4F1C. 5) 

8  F0RMAT(1X,3I5) 

9  FORMAT (3X, 'MAX  =  ',I5,3X,'MIN  =  ',I5,3X,'N  =  ',15) 

10  FORMAT (IX, 'RADIUS  (M)  SIGMA  (MHOS/M)  EPSILON  (REL)  SIGMA 
2(MH0S/M)') 

11  F0RMAT(1X,'#  OF  WIRES  #  OF  SEGMENTS/WIRE' ) 

12  FORMAT( IX, 'FREQUENCY  =  ',F7.3,'  MEGAHERTZ') 

13  FORMAT (IX, 'SEGMENT  1ST  ENDPOINT  2ND  ENDPOINT') 

14  F0RMAT(1X,'WIRE  SPACING  -  ',F3.1,'  INCHES') 

15  FORMAT (IX, 'ELEMENT  IS  ',F5.2,'  INCHES  ABOVE  GROUND  SCREEN') 

16  FORMAT (IX, 'WIRE  LENGTH  =  ',F7.3,'  INCHES') 

17  F0RMAT(1X,F10.5,6X,F10.5,5X,F10.5,6X,F10.5) 

18  F0RMAT(6X,I5,15X,I5) 

19  FORMAT(3X,I5,9X,I5,9X,I5) 

20  F0RMAT(1X,'PHI  THETA  EPHI  ETHETA' ) 

21  F0RMAT(1X,I5,2X,I5,2X,F10.5,2X,F10.5) 

22  FORMAT( IX, 'POINT  X' ,9X, 'Y' ,9X, 'Z' ) 

23  FORMATdX,' SCATTERED  FAR  FIELD') 

24  FORMAT ( IX, 'SCATTERED+ELEMENT  FAR  FIELD') 

25  FORMATdX, 'PROBLEMS  WITH  NUMERICAL  INTEGRATION') 

1001  FORMATdX,  2E15. 9,  lOX, 'ETA') 

1002  FORMATdX, 2E15. 9, lOX, 'GAM') 

1003  F0RMAT(1X,I5,35X,'NSYM  -  degrees  of  symmetry') 

1004  F0RMAT(1X,I5,35X,'NW  -  #  of  EW  ground  wires') 

1005  FORMATdX,  15, 35X,' INS  -  NS  wire  indicator') 

1006  FORMAT (IX, 15, 35X, 'NP  -  #  of  points') 

1007  F0RMAT(1X,I5,35X,'NM  -  #  of  segments') 

1008  F0RMAT(1X,I5,35X, 'N  -  #  of  test  dipole  modes') 

1009  F0RMAT(1X,I5,35X,'N1') 

1010  F0RMAT(1X,I5,35X,'N2') 

1011  F0RMAT(1X,F10.5,1X,F10.5,1X,F10.5,1X,I4,2X,'XPT,YPT,ZPT  -point 
+coordinates  (meters)') 

1012  F0RMAT(1X,F10.5,1X,F10.5,1X,F10.5,1X,I4) 

1013  F0RMAT(1X,I5,1X,I5,1X,F10.5,1X,I4,12X,'IA,IB,D  -  endpoints, 

+length  (meters)') 

1014  FORMATdX,  15, IX,  15, IX, FIO. 5, IX,  14) 

1015  F0RMAT(1X,I5,2X,I5,1X,I5,1X,I5,1X,I5,1X,I4,5X,'ND(I).MD(I,J)  -  # 
+of  modes,  list' ) 

1016  FORMATdX,  15, 2X,  15, IX,  15, IX,  15, IX,  15, IX,  14) 

1017  FORMATdX, 15, IX, 15, IX, 15, IX, 14, 17X, 'II, 12, 13  -  test  dipole  mode 
+points' ) 

1018  F0RMAT(1X,I5,1X,I5,1X,I5,1X,I4) 

1019  F0RMAT(1X,F15.8,1X,F15.8,1X,I4,4X,'CR,CI  -  real  and  imaginary 
+currents' ) 

1020  F0RMAT(1X,F15.8,1X,F15.8,1X,I4) 

C 

800  STOP 
END 
C 

C*********************************************************************** 


ooooooooooooooooooooooooooooooooooooooonoooooooooooooooo  oo 


SUBROUTINE  S0RT(IA,IB,I1,I2,I3,JA,JB,HD,ND,NM,NP,N,MAX,MIN,ICJ, 
2INH) 


********************************************************************** 
*  * 

*  SUBROUTINE  SORT  * 

*  * 
A***********************-********************************************** 


AUTHOR: 


DATE: 

LANGUAGE: 

FILE: 


J.  H.  RICHMOND,  OHIO  STATE  UNIVERSITY  ELECTROSCIENCE  LAB 
REFERENCE  :  J.  H.  Richmond,  "COMPUTER  PROGRAM  FOR 
THIN-WIRE  STRUCTURES  IN  A  HOMOGENEOUS 
CONDUCTING  MEDIUM",  National  Technical 
Information  Service,  Springfield,  VA  22151, 
NASA  Contract  Report  CR-2399,  June  1974 

JUNE-1974 
VAX  FORTRAN 

MV7770: :SPACE: [ BERG . THINWIRE ] THINWIRE . FOR 


CALLING  ROUTINE:  MV7770: :SPACE: (BERG. THINWIREJTHINVIRE. FOR 


SUBROUTINES  CALLED:  NONE 


COMPILE  INSTRUCTIONS:  $  FORTRAN  THINWIRE 

LINK/LOAD  INSTRUCTIONS(TKB):  $  LINK  THINWIRE 
PARENT  PROGRAM:  THINWIRE. FOR 


PROGRAM  DESCRIPTION; 

This  subroutine  defines  a  set  of  test  dipole  modes  on  a 
thin-wire  structure. 


PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  DO 

for  each  endpoint. 

Determine  #  of  test  dipole  modes  with  terminal  at 
that  endpoint. 

DO 

for  each  test  dipole  mode  with  terminal  at 
that  endpoint. 

Determine  corresponding  segments. 
Determine  corresponding  endpoints. 


ENDDO 

ENDDO 

2.  Determine  total  number  of  test  dipoles. 

3.  DO 

for  each  segment. 

Determine  total  #  of  test  dipoles  sharing  that 


ooo  ooooooooooooooooooooooonoonoooooooooooooooooooooo 


ENDDO 


segment. 

Create  list  of  test  dipoles  sharing  that  segment. 


4. 


Determine  maximum  and 
any  one  segment. 


5.  RETURN 


minimum  number  of  test  dipoles  sharing 


INPUTS  EXPLICIT: 


IA(J) 

-  1st  endpoint  of 

segment  J 

IB(J) 

-  2nd  endpoint  of 

segment  J 

NM 

-  #  of  segments 

NP 

-  #  of  endpoints 

ICJ 

-  maximum  allowed 

number  of 

INM 

-  maximum  allowed 

number  of 

test  dipole  modes 
segments 


IMPLICIT:  NONE 


OUTPUTS  EXPLICIT: 

N  -  total  number  of  test  dipole  modes 

11(1)  -  1st  endpoint  of  test  dipole  I 

12(1)  -  terminal  point  of  test  dipole  I 

13(1)  -  2nd  endpoint  of  test  dipole  I 

JA(I)  -  1st  segment  of  test  dipole  I 

JB(I)  -  2nd  segment  of  test  dipole  I 

MD(J,K)  -  list  of  test  dipoles  sharing  segment  J 

ND(J)  -  total  number  of  test  dipoles  sharing  segment  J 

MAX  -  maximum  value  of  ND(J) 

MIN  -  minimum  value  of  ND(J) 


IMPLICIT:  NONE 


OTHER  MAJOR  VARIABLES: 

JSP(I)  -  list  of  segments  intersecting  at  endpoint  I 
MOD  -  #  of  test  dipoles  with  terminals  at  endpoint  I 

NJK  -  #  of  segments  intersecting  at  endpoint  I 

SYSTEM  STATE  CHANGES:  NONE 


MODIFIED: 

Dr.  Steven  L.  Berg,  11/25/88 

-  Added  header  and  documentation. 

DIMENSION  JSP(20) 

DIMENSION  I1(1),J2(1),I3(1),JA(1),JB(1) 
DIMENSION  IA( 1 ) , IB( 1 ) , ND( 1 ) , MD( INM, 4 ) 

1=0 

DO  24  K=1,NP 
NJK=0 


Determine  NJK  and  JSP. 

DO  20  J=1,NM 
IND=(IA(J)-K)*(IB(J)-K) 


ooo  oooooo  oooooo  ooooooooo 


IF  (IND.NE.O)GO  TO  20 
NJK=NJK+1 
JSP(NJK)=J 
20  CONTINUE 

Determine  MOD. 

M0D=NJK-1 

If  MOD  =  0,  then  K  is  an  endpoint  of  a  single  isolated  segment. 

IF  (MOD.LE.O)GO  TO  24 

Set  endpoints  of  test  dipole  modes. 

DO  22  IMD=1,M0D 
1=1+1 


Determine  if  number  of  modes  exceeds  maximum  allowable. 
IF(I.GT.ICJ)GO  TO  22 


Determine  JA,JB,I1,I2,  and  13  for  each  test  dipole  mode. 

IPD=IMD+1 

JAI=JSP(IMD) 

JA(I)=JAI 

JBI=JSP(IPD) 

JB(I)=JBI 

I1(I)=IA(JAI) 

IF(IA(JAI).EQ.K)I1(I)=IB(JAI) 

I2(I)=K 

I3(I)=IA(JBI) 

IF(IA(JBI).EQ.K)I3(I)=IB(JBI) 

22  CONTINUE 
24  CONTINUE 

Determine  total  number  of  test  dipoles. 


N=I 


Set  intital  values  of  ND(J)  and  MD(J,K)  equal  to  zero. 

DO  30  J=1,NM 
ND(J)=0 
DO  29  K=l,4 
MD(J,K)=0 

29  CONTINUE 

30  CONTINUE 
III=N 

IF(N.GT.ICJ)III=ICJ 


Determine  ND(J)  and  MD(J,K). 

DO  40  1=1,111 
J=JA(I) 

DO  38  L=l,2 
ND(J)=ND(J)+1 
K=1 
M=0 


o o o o o o n o o o o o o o o n o o o o o o o o o n n o o n n  oon  ooo^  ooo 


32 


MJK=MD(J,K) 
IF(MJK.NE.O)GO  TO  34 
M=1 

MD(J,K)=I 
34  K=K+1 

IF(K.GT.4)G0  TO  38 
IF(M.EQ.0)G0  TO  32 
38  J=JB(I) 

40  CONTINUE 

Determine  MAX  and  MIN. 

MIN=100 

MAX=0 

DO  46  J=1,NM 
NDJ=ND(J) 

I F ( ND J . GT . MAX ) MAX=ND J 
IF(NDJ.LT.MIN)MIN=NDJ 
6  CONTINUE 

Return  to  main  program. 

RETURN 

END 
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f 

SUBROUTINE  SGANT(IA,IB,INM,ICJ,I1,I2,I3, JA, JB,MD,N,ND,NM,NP,NW,AM, 
2NSYM,INS,Nl,N2,CGD,CMM,D,EP3,ETA,FHZ,GAM,SGD,X,y,Z,CR,CI) 


************************************************************************* 
*  * 


*  SUBROUTINE  SCANT 

* 


* 

* 


***  ******************************************************************* 


AUTHOR:  J.  H.  RICHMOND,  OHIO  STATE  UNIVERSITY  ELECTROSCIENCE  LAB 

REFERENCE  ;  J.  H.  Richmond,  "COMPUTER  PROGRAM  FOR 
THIN-WIRE  STRUCTURES  IN  A  HOMOGENEOUS 
CONDUCTING  MEDIUM",  National  Technical 
Information  Service,  Springfield,  VA  22151, 
NASA  Contract  Report  CR-2399,  June  1974 

DATE:  JUNE-1974 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: : SPACE: [ BERG. THINWIREJTHINWIRE. FOR 

CALLING  ROUTINE:  MV7770: : SPACE: (BERG. THINVIREJTHINVIRE. FOR 

SUBROUTINES  CALLED:  CBES  -  calculates  the  quantity 

B01=J0(z)/Jl(z)  where  z  is  complex  and 
JO  and  J1  denote  the  Bessel  functions 
of  order  zero  and  one. 

GGS  -  calculates  the  mutual  impedance 

between  two  filamentary  monopoles  with 
sinusoidal  current  distribution  using 
either  the  GGMM  subroutine  or  Simpson's 
rule. 

GGMM  -  calculates  the  mutual  impedance 

between  two  filamentary  monopoles  with 
sinusoidal  current  distribution  using 


C  closed-form  expressions  in  terms  of 

C  exponential  integrals. 

C 

C  COMPILE  INSTRUCTIONS;  $  FORTRAN  THINWIRE 

C 

C  LINK/LOAD  INSTRUCTIONS(TKB) ;  $  LINK  THINWIRE 
C 

C  PARENT  PROGRAM:  THINWIRE. FOR 

C 

C  PROGRAM  DESCRIPTION: 

C  This  subroutine  calculates  the  mutual  impedances  between  test 

C  dipoles  and  stores  them  in  a  square  matrix. 

C 

C  PROGRAM  ALGORITHM  (PSEUDOCODE); 

C 

C  1.  Calculate  wire  surface  impedance. 

C 

C  2.  Calculate  mutual  impedance  between  all  possible  monopole 

C  pairs. 

C 

C  3.  Fill  the  mutual  impedance  matrix. 

C 

C  4.  RETURN 

C 

C  INPUTS  EXPLICIT; 


c 

IA(J) 

- 

1st  endpoint  of  segment  J 

c 

IB(J) 

- 

2nd  endpoint  of  segment  J 

c 

INM 

- 

maximum  allowed  #  of  segments 

c 

ICJ 

- 

maximum  allowed  #  of  simultaneous  linear  equations 

c 

11(1) 

- 

1st  endpoint  of  test  dipole  I 

c 

12(1) 

- 

terminal  point  of  test  diple  I 

c 

13(1) 

- 

2nd  endpoint  of  test  dipole  I 

c 

JA(I) 

- 

1st  segment  of  test  dipole  I 

c 

JB(I) 

- 

2nd  segment  of  test  dipole  I 

c 

MD(J,K) 

- 

list  of  test  dipoles  sharing  segment  J 

c 

N 

- 

total  #  of  test  dipoles 

c 

ND(J) 

- 

total  #  of  test  dipoles  sharing  segment  J 

c 

NM 

- 

#  of  segments. 

c 

NP 

- 

#  of  endpoints 

c 

AM 

- 

wire  radius  (meters) 

c 

CMM 

- 

wire  conductivity  (mhos/meter) 

c 

(CMM.LE.O.  is  treated  as  infinite  conductivity) 

c 

EP3 

- 

complex  dielectric  constant  of  ambient  medium 

c 

ETA 

- 

intrinsic  impedance  of  ambient  medium 

c 

FHZ 

- 

transmission  frequency  (Hertz) 

c 

GAM 

- 

complex  propagation  constant  of  ambient  medium 

c 

X(I) 

- 

X  coordinate  of  endpoint  I 

c 

Y(I) 

- 

y  coordinate  of  endpoint  I 

c 

Z(I) 

- 

z  coordinate  of  endpoint  I 

C 

C  IMPLICIT:  NONE 

C 

C  OUTPUTS  EXPLICIT; 

C  CR(I,J)  -  real  values  of  thin-wire  impedance  matrix 

C  CI(I,J)  -  imaginary  values  of  thin-wire  impedance  matrix 

C  D(J)  -  length  of  segment  J 

C  CGD(J)  -  cosh  (GAM*D(J)) 

C  SGD(J)  -  sinh  (GAM*D(J)) 

C 
C 


IMPLICIT: 


c 

C  OTHER  MAJOR  VARIABLES: 

C  ZARG  -  complex  number  used  to  determine  ZS. 

C  ZS  -  wire  surface  impedance. 

C 

C  SYSTEM  STATE  CHANGES:  NONE 
C 

C- 

C 

C  MODIFIED: 

C  Dr.  Steven  L.  BERG,  2/08/88 

C  -  Adapted  to  THINVIRE's  requirements. 

C  Dr.  Steven  L.  BERG,  11/25/88 

C  -  Added  header  and  documentation. 

C 

C 

C  Declare  variables. 

C 

IMPLICIT  REAL*8(A-H,0-Z) 

C0MPLEX*16  EGD, CGDS , SGDS , SGDT , Qll , Q12 , GD, ZG , PI 1 , P12 , P21 , P22 
C0MPLEX*16  CGD(1),SGD(1) 

C0MPLEX*16  BOl 

C0MPLEX*16  EP,ETA,GAM,EP3,ZS,ZH 
C0MPLEX*16  EPSILA,CWEA, BETA, ZARG 
C0MPLEX*16  P( 2, 2), 0(2, 2) 

DIMENSION  CR( 602 , 602 ) , Cl ( 602 , 602 ) 

DIMENSION  X(1),Y(1),Z(1),D(1),IA(1),IB(1),MD(INM,4) 

DIMENSION  11(1), 12(1), 13(1), JA(1),JB(1),ND(1) 

DATA  E0,U0/8.8541879357607759E-12,1.2566370614355172E-6/ 

DATA  PI/3.141592653589793/ 

2  F0RMAT(3X,'AM  =  ' ,E10.3,3X, 'DMAX  =  ' ,E10.3,3X, 'DMIN  =  ',E10.3) 
TP=2.*PI 
EP=EP3 
C 

C  Calculate  wire  surface  impedance  (ZS) 

C 

ZS=(.0, .0) 

C 

C  CMM.LE.O.  is  treated  as  infinite  wire  conductivity. 

C 

IF(CMM.LE.0.)  GO  TO  12 
OMEGA=TP*FHZ 

EPSILA=DCMPLX(EO , -CMM*1 , D6/0MEGA) 

CWEA.( .0, 1 . )*OMEGA*EPSILA 
BETA=OMEGA*DSQRT ( UO ) *CDSQRT ( EPSI LA-EP ) 

ZARG=BETA*AM 

C 

C  Calculate  the  quantity  B01=J0(Z)/J1(Z) ,  where  JO  and  J1  denote  the 
C  Bessel  functions  of  order  zero  and  one. 

C 

CALL  CBES( ZARG, BOl) 

ZS=BETA*B01/CWEA 
12  ZH=ZS/(TP*AM*GAM) 

C 

C  Determine  segment  lenths  [D(J)]  and  minimum  (DMIN)  and  maximum 
C  (DMAX)  values. 

C 

DMIN=1.D30 
DMAX=.0 
DO  20  J=1,NM 


ooo  oooooo  ooo  ooooo  oooooooo 


K=IA(J) 

L=IB(J) 

D(J)=DS0RT((X(K)-X(L))**2+(Y(K)-Y(L))**2+(Z(K)-Z(L))**2) 

IF(D(J).LT.DMIN)DMIN=D(J) 

IF(D(J) .GT.DMAX)DMAX=D(J) 

EGD=CDEXP(GAM*D(J)) 

CGD(J)=(EGD+l./EGD)/2. 

SGD(J)=(EGD-l./EGD)/2. 

20  CONTINUE 

Length  Test  :  If  any  segment  length  is  less  than  the  diameter  of  the 
wire  of  if  any  segment  length  is  too  long  ,  return  to  main  program. 

IF(DMIN.LT.2.*AM)  GO  TO  25 

Radius  Test  ;  If  the  wire  radius  is  too  large  for  convergence  of  is 
the  wire  radius  is  zero,  return  to  main  program. 

IF(CDABS(GAM*AM).GT.0.06)  GO  TO  25 
IF  (AM.GT.O.)  GO  TO  30 
25  N=0 

WRITE (6, 2)  AM,DMAX,DMIN 
RETURN 

Fill  impedance  matrix. 

Consider  all  segments  <K) 

30  DO  200  K=1,NM 
NDK=ND(K) 

KA«IA(K) 

KB=IB(K) 

DK=D(K) 

CGDS=CGD(K) 

SGDS=SGD(K) 


Consider  all  segments  (L)  interacting  with  segment  K. 

DO  200  L=1,NM 
NDL=ND(L) 

LA=IA(L) 

LB=IB(L) 

DL=D(L) 

SGDT=SGD(L) 

NIL=0 


Consider  all  test  dipoles  sharing  segment  K, 

DO  200  11=1, NDK 

I  is  the  test  dipole  sharing  segment  K 
I=MD(K,II) 

IF(NSYM.EQ.4  .AND.  I.GT.Nl  .AND.  I.LE.4*N1)  GO  TO  200 
IF(NSYM.EQ.4  .AND.  I.GT.N2)  GO  TO  200 
MM=(I-l)*N-(I*I-I)/2 
FI=1. 


Determine  if  2nd  endpoint  of  K  is  terminal  point  of  test  dipole  I. 


IF(KB.EQ.I2(I))  GO  TO  36 
C 

C  Determine  if  2nd  endpoint  of  K  is  1st  endpoint  of  tes  dipole  I. 

IF(KB.EQ.I1(I))FI=-1. 

C 

C  IS  denotes  monopole  half  of  test  dipole  under  consideration. 

C 

IS=1 

GO  TO  40 
C 

C  Determine  if  1st  endpoint  of  K  is  2nd  endpoint  of  test  dipole  I. 

c 

36  IF  (KA.EQ.I3(I))FI=-1. 

IS=2 

C 

C  Consider  all  test  dipoles  sharing  segment  L. 

C 

40  DO  200  JJ=1,NDL 

C 

C  J  is  the  test  dipole  sharing  segment  L. 

C 

J=MD(L,JJ) 

C 

C  C  is  a  symmetric  matrix,  therefore  only  half  the  matrix  needs  to  be 
C  calculated. 

C 

IF(NSYM.NE.l)  GO  TO  42 
IF(I.GT.J)  GO  TO  200 
42  FJ=1. 

C 

C  Determine  if  2nd  endpoint  of  L  is  terminal  point  of  test  dipole  J. 

c 

IF(LB.EQ.I2(J))  GO  TO  46 
C 

C  Determine  if  2nd  endpoint  of  L  is  1st  endpoint  of  test  dipole  I. 

C 

IF(LB.EQ.I1(J))  FJ=-1. 

C 

C  JS  denotes  monpole  half  of  test  dipole  under  consideration. 

C 

JS=1 

GO  TO  50 
C 

C  Determine  if  1st  endpoint  of  L  is  2nd  endpoint  of  test  dipole  I. 

C 

46  IF(LA.EQ.I3(J))FJ=-1. 

JS=2 

C 

C  Determine  if  matrix  contribution  has  already  been  calculated. 

C 

50  IF(NIL.NE.O)  GO  TO  168 

NIL=1 

IF(K.EQ.L)  GO  TO  120 
INDl = ( LA-KA ) * ( LB-KA ) 

IND2-(LA-KB)*(LB-KB) 

IF(IND1.EQ.0  .OR.  IND2.EQ.0)  GO  TO  80 
C 

C  Segments  K  and  L  share  no  points. 

C 


C  Calculate  the  monopole-monopole  mutual  impedances  for  all  four 
C  monopole-monpole  interactions. 

C 

CALL  GGS(X(KA) , Y(KA) ,Z(KA) ,X(KB) , Y(KB) ,Z(KB) ,X(LA) , Y(LA) , 

2  Z(LA),X(LB),Y(LB),Z(LB),AM,DK,CGDS,SGDS,DL,SGDT,ETA,GAM, 

3  P(1,1),P(1,2),P(2,1),P(2.2)) 

GO  TO  168 

C 

C  Segments  K  and  L  share  one  point  (they  intersect). 

C 

80  KG=0 

JM=KB 
JC=KA 
KF=1 
C 

C  Determine  which  K  endpoint  is  shared  with  L. 

C 

IND=(KB-LA)*(KB-LB) 

IF(IND.NE.O)  GO  TO  82 
C 

C  2nd  K  endpoint  is  shared  with  L. 

C 

JC=KB 

KF=-1 

JM=KA 

KG=3 

C 

C  1st  K  endpoint  is  shared  with  L. 

C 

82  LG*3 
JP=LA 
LF=-1 

IF(LB.EQ.JC)GO  TO  83 
C 

C  1st  L  endpoint  is  share  with  K. 

C 

JP=LB 

LF=1 

LG=0 

C 

C  2nd  L  endpoint  is  shared  with  K. 

C 

83  SGN=KF*LF 

CPSI=((X(JP)-X(JC))*(X(JM)-X(JC))+(Y(JP)-Y(JC))*(Y(JM) 

2  -Y(JC))+(Z(JP)-Z(JC))*(Z(JM)-Z(JC)))/(DK*DL) 

C 

C  Calculate  the  monopole-monopole  mutual  impedances  for  all  four 
C  monopole-monpole  interactions. 

C 

CALL  GGMM( . 0 , DK, . 0 , DL , AM , CGDS , SGDS , SGDT , CPSI , ETA , GAM , 

2  0(1,1), 0(1, 2), 0(2,1), 0(2, 2)) 

DO  98  KK=1,2 
KP=IABS(KK-KG) 

DO  98  LL=1,2 
LP=IABS(LL-LG) 

P(KP,LP)=SGN*0(KK,LL) 

98  CONTINUE 

GO  TO  168 
C 

C  Segment  K  is  the  same  as  segment  L  (self  reaction  of  segment  K). 


c 

120  Q11=(.0,.0) 

Q12=(.0,.0) 

C 

C  CMM.LE.O.  is  treated  as  infinite  conductivity. 

C 

IF(CMM.LE.0.)G0  TO  155 

GD=GAM*DK 

ZG=ZH/(£:GDS**2) 

Qll=ZG*(SGDS*CGDS-GD)/2. 

Q12=ZG*(GD*CGDS-SGDS)/2. 

155  CONTINUE 

C 

C  Calculate  the  monopole-monopole  mutual  impedances  for  all  four 
C  monopole-monopole  interactions. 

C 

CALL  GGMM ( . 0 , DK , . 0 , DK , AM , CGDS , SGDS , SGDS , 1 . , 

2  ETA,GAM,P11,P12,P21,P22) 

Q11=P11+Q11 

Q12=P12+Q12 

P(1,1)=Q11 

P(1,2)=Q12 

P(2,1)=Q12 

P(2,2)=Q11 

C 

C  Determine  relative  orientation  for  proper  impedance. 

C 

IF(KA.NE.LA)G0  TO  160 
GO  TO  168 

160  P(1,1)»-Q12 

P(1,2)=-Q11 
P(2,1)=-Q11 
P(2,2)=-Q12 
C 

C  Determine  mutual  impedance  matrix  element  between  test  dipole  I  and 
C  test  dipole  J. 

C 

168  IF(NSYM.NE.l)  GO  TO  170 

CR(I,J)=CR(I,J)+FI*FJ*DREAL(P(IS,JS)) 

CI(I,J)=CI(I,J)+FI*FJ*DIMAG(P(IS,JS)) 

CR(J,I)=CR(I,J) 

CI(J,I)=CI(I,J) 

GO  TO  200 
170  CONTINUE 

J4»J 
PM=1.0 

IF(J4.GT.3*N1  .AND.  J4.LE.4*N1  .AND.  INS.NE.O)  PM=-1.0 
IF(J4.GT.3*N1  .AND.  J4.LE.4*N1)  J4=J4-3*N1 
IF(J4.GT.2*N1  .AND.  J4.LE.4*N1)  J4=J4-2*N1 
IF(J4.GT.N1  .AND.  J4.LE.4*N1  .AND.  INS.NE.O)  PM=-1.0 
IF(J4.GT.N1  .AND.  J4.LE.4*N1)  J4=J4-N1 
IF(J4.GT.N2)  J4=J4-(N-N2) 

IF(J4.GT.4*N1)  J4=J4-3*N1 
14=1 

IF(I4.GT.4*N1)  I4=I4-3*N1 

CR(I4,J4)=CR(I4,J4)+PM*FI*FJ*DREAL(P(IS,JS)) 

CI(I4,J4)=CI(I4,J4)+PM*FI*FJ*DIMAG(P(IS,JS)) 

200  CONTINUE 
C 

C  Return  to  main  program. 


ooooooooooonooooooooooooooonooooonooooooooooooooooooo 


C 

RETURN 

END 

C 
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SUBROUTINE  CBES(Z,B01) 
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AUTHOR; 


DATE: 

LANGUAGE: 

FILE: 


J.  H.  RICHMOND,  OHIO  STATE  UNIVERSITY  ELECTROSCIENCE  LAB 
REFERENCE  :  J.  H.  Richmond,  '’COMPUTER  PROGRAM  FOR 
THIN-WIRE  STRUCTURES  IN  A  HOMOGENEOUS 
CONDUCTING  MEDIUM",  National  Technical 
Information  Service,  Springfield,  VA  22131, 
NASA  Contract  Report  CR-2399,  June  1974 

JUNE-1974 
VAX  FORTRAN 

MV7770: : SPACE: [ BERG. THINVIREITHINWIRE. FOR 


CALLING  ROUTINE;  MV7770: : SPACE: [BERG.THINWIRE]THINWIRE. FOR 


SUBROUTINES  CALLED;  NONE 


COMPILE  INSTRUCTIONS:  $  FORTRAN  THINWIRE 

LINK/LOAD  INSTRUCTIONS (TKB):  $  LINK  THINWIRE 
PARENT  PROGRAM:  THINWIRE. FOR 


PROGRAM  DESCRIPTION; 

This  program  calculates  the  quantity  B01=J0(z)/Jl(z)  where  z  is 
complex  and  JO  and  J1  denote  the  Bessel  functions  of  order  zero  and 
one. 

PROGRAM  ALGORITHM  (PSEUDOCODE); 

1.  Calculate  parts  for  Bessel  functions  of  order  zero  (JO)  and 
one  (Jl). 

2.  Determine  JO/Jl 

3.  RETURN 

INPUTS  EXPLICIT; 

Z  -  complex  number 

IMPLICIT;  NONE 

OUTPUTS  EXPLICIT: 

BOl  -  J0(Z)/J1(Z)  wher  JO  and  Jl  denote  the  Bessel  functions 
of  order  zero  and  one 

IMPLICIT:  NONE 


OTHER  MAJOR  VARIABLES:  NONE 


nooonoonooo  ooo  ooooooooo 


SYSTEM  STATE  CHANGES:  NONE 


MODIFIED: 

Dr.  Steven  L.  Berg,  11/30/88 
-  Added  header 

IMPLICIT  REAL*8(A-H,0-Z) 

COMPLEX* 16  ARG,CC,CS,EX 
COMPLEX* 16  BO 1 , Z , TERM J , TERMN , MZ24 , JN( 2 ) 
IF  (CDABS(Z).GE.12.0)  GO  TO  10 
FACTOR=0.0 
TERMN=(0.,0.) 

MZ24=-0.25*Z*Z 
TERMJ=(1. 0,0.0) 

DO  1  NP=1,2 
N=NP-1 

JN(NP)=TERMJ 
M=0 

2  M=M+1 

TERM J=TERMJ*MZ24 / FLOAT ( M* ( N+M ) ) 
JN(NP)=JN(NP)+TERMJ 
IF(NP.NE.l)  GO  TO  3 
FACT0R=FACT0R+1 . 0/FL0AT(M) 
TERMN=TERMN+TERMJ*FACTOR 

3  ERROR=CDABS(TERMJ) 

IF(ERROR.GT.l.OE-lO)  GO  TO  2 

1  TERMJ=0.5*Z 

B01=JN(1)/JN(2) 

RETURN 

10  Y=DIMAG(Z) 

IF(ABS(Y).GT.20.)  GO  TO  20 

ARG=(.0,1.)*Z 

EX=CDEXP(ARG) 

CC=EX+1./EX 

CS=(.0,-1.)*(EX-1./EX) 

B01=(CS+CC)/(CS-CC) 

RETURN 

20  B01=(.0,-l.) 

IF(Y.LT.O.)  B01=(.0,l.) 

RETURN 
END 
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+ 

SUBROUTINE  GGS(XA,YA,ZA,XB,YB,ZB,X1,Y1,Z1,X2,Y2,Z2,AM, 
2DS,CGDS,SGDS,DT,SGDT,ETA,GAM,P11,P12,P21,P22) 


■k 
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SUBROUTINE  GGS 


* 

k 

k 
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Information  Service,  Springfield,  VA  22151, 
NASA  Contract  Report  CR-2399,  June  1974 

DATE:  JUNE-1974 

LANGUAGE:  VAX  FORTRAN 

FILE:  MV7770: : SPACE: [ BERG. THINWIRE]THINWIRE. FOR 

CALLING  ROUTINE :  MV7  7  70 ; : SPACE : ( BERG . THINVIRE  J  THINWIRE . FOR 

SUBROUTINES  CALLED:  GGMM  -  calculates  the  mutual  impedance 

between  two  filamentary  monopoles  with 
sinusoidal  current  distribution  using 
closed-form  expressions  in  terms  of 
exponential  integrals. 

COMPILE  INSTRUCTIONS:  $  FORTRAN  THINVIRE 

LINK/LOAD  INSTRUCTIONS (TKB):  $  LINK  THINVIRE 
PARENT  PROGRAM:  THINVIRE. FOR 

PROGRAM  DESCRIPTION: 

This  subroutine  calculates  the  mutual  impedance  between  two 
filamentary  monopoles  with  sinusoidal  current  distribution  using 
either  the  GGMM  subroutine  or  Simpson's  rule.  The  calculation  is 
determined  by  input  parameter  values.  For  more  information  consult 
APPENDIX  5  in 

J.  H.  Richmond,  "COMPUTER  PROGRAM  FOR 
THIN-VIRE  STRUCTURES  IN  A  HOMOGENEOUS 
CONDUCTING  MEDIUM",  National  Technical 
Information  Service,  Springfield,  VA  22151, 

NASA  Contract  Report  CR-2399,  June  1974. 

PROGRAM  ALGORITHM  (PSEUDOCODE): 

1.  Calculate  mutual  impedance. 

2 .  RETURN 

INPUTS  EXPLICIT: 

AM 

CGDS 

DS 

DT 

ETA 

GAM 

SGDS 

SGDT 

XI 

X2 

XA 

XB 

Y1 

Y2 

YA 

YB 

Z1 

Z2 

ZA 

ZB 


ooo  ooo  o o o o n o o o o o o n o o o o o o o o o o o o o 


IMPLICIT:  NONE 

OUTPUTS  EXPLICIT: 

Pll 

P12 

P21 

P22 

IMPLICIT:  NONE 

OTHER  MAJOR  VARIABLES: 

INT  -  0  =>  closed  form  calculation  performed 

otherwise  =>  Simpson's  rule  may  be  used 

SYSTEM  STATE  CHANGES:  NONE 


MODIFIED: 

DR.  STEVEN  L.  BERG,  02/08/88 

-  INT  was  set  equal  to  zero  to  always  select  closed  form 
calculation. 


IMPLICIT  REAL*8(A-H,0-Z) 

C0MPLEX*16  CGDS , SGDS , SGDT , Pll , P12 , P21 , P22 , CST , ETl , ET2 

COMPLEX* 16  ETA, GAM 

DATA  PI/3.141592653589793/ 


Set  INT»0  to  always  have  closed-form  calculation. 
INT=0 


CA=(X2-X1)/DT 
CB=(Y2-Y1)/DT 
CG=(Z2-Z1)/DT 
CAS=(XB-XA)/DS 
CBS=(YB-YA)/DS 
CGS=(ZB-ZA)/DS 
CC=CA*CAS+CB*CBS+CG*CGS 
IF(ABS(CC).GT. .997)GO  TO  200 
20  SZ-(X1-XA)*CAS+(Y1-YA)*CBS+(Z1-ZA)*CGS 
GO  TO  300 

200  SZ1=(X1-XA)*CAS+(Y1-YA)*CBS+(Z1-ZA)*CGS 

RH1=DSQRT((X1-XA-SZ1*CAS)**2+(Y1-YA-SZ1*CBS)**2 

2+(Zl-ZA-SZl*CGS)**2) 

SZ2=SZ1+DT*CC 

RH2=DSQRT((X2-XA-SZ2*CAS)**2+(Y2-YA-SZ2*CBS)**2 

2+(Z2-ZA-SZ2*CGS)**2) 

DDD=(RHl+RH2)/2. 

IF(DDD.GT.20.*AM  .AND.  INT.GT.O)  GO  TO  20 
IF  (DDD.LT.AM)DDD=AM 

CALL  GGMM ( . 0 , DS , SZ 1 , SZ2 , DDD , CGDS , SGDS , SGDT , 1 . , ETA , GAM , 
2P11,P12,P21,P22) 

RETURN 

300  SS=DSQRT(1.-CC*CC) 

CAD= ( CGS*CB-CBS*CG ) / SS 


ooooooooooooooonooooooooonoooooooo 


CBD.(CAS*CG-CGS*CA)/SS 
CGD= ( CBS*CA-CAS*CB ) / SS 
DK=(Xl-XA)*CAD+(yi-YA)*CBD+(Zl-ZA)*CGD 
DK=ABS(DIC) 

IF(DK.LT.AM)  DK=AM 

XZ=XA+SZ*CAS 

YZ=YA+SZ*CBS 

ZZ=ZA+SZ*CGS 

XP1=X1-DK*CAD 

YP1=Y1-DK*CBD 

ZP1=Z1-DK*CGD 

CAP=CBS*CGD-CGS*CBD 

CBP=CGS*CAD-CAS*CGD 

CGP=CAS*CBD-C  :js*cad 

P1=CAP*(XP1-X^:)+CBP*(YP1-YZ)+CGP*<ZP1-ZZ) 

T1=P1/SS 

S1=T1*CC-SZ 

CALL  GGMM (S1,S1+DS,T1,T1+DT,DK, CGDS , SGDS , SGDT , CC , ETA , GAM , 
2P11,P12,P21,P22) 

RETURN 

END 

C 

Qicicitiriticitirificicicieif'kiritifitiricicificicicicirieiticiciriticicicititiciciciticiciticic'k'k'k'kic'k'k'k'kit'k'k'kic'k'k'k'k'k'k'k’kit 

c+ 

SUBROUTINE  GGMM (S1,S2,T1,T2,D, CGDS , SGDl , SGD2 , CPSI , ETA , GAM , 
2P11,P12,P21,P22) 


*  ★ 

*  SUBROUTINE  GGMM  * 

*  * 
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MV7  7  70 : : SPACE ; I  BERG . THINWIRE ] THINWIRE . FOR 


CALLING  ROUTINE:  MV7770: : SPACE: I  BERG. THINVIREJTHINVIRE. FOR 

SUBROUTINES  CALLED:  EXPJ  -  evaluates  an  exponential  integral 
COMPILE  INSTRUCTIONS:  $  FORTRAN  THINWIRE 

LINK/LOAD  INSTRUCTIONS(TKB):  $  LINK  THINWIRE 


PARENT  PROGRAM:  THINWIRE. FOR 


PROGRAM  DESCRIPTION: 

This  subroutine  calculates  the  mutual  impedance  between  two 
filamentary  monopoles  with  sinusoidal  current  distribution  using 
closed-form  expressions  in  terms  of  exponential  integrals.  For  more 
information  consult  APPENDIX  6  in 

J.  H.  Richmond,  "COMPUTER  PROGRAM  FOR 
THIN-WIRE  STRUCTURES  IN  A  HOMOGENEOUS 


